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PREFACE 



This document describes the structure 
and functions of the ALGOL-to-PL/I Language 
Conversion Program: its components, their 
functions, and the control flow among them. 
The detailed organization of each component 
and the instructions used to implement its 
functions are given in the program listing. 
The object of this manual is to help the 
user to find any portion of the listing he 
requires. 



In this manual, the IBM System/360 
Operating System ALGOL language is referred 
to as ALGOL and the IBM System/3 60 Operat- 
ing System PL/I (F) language is referred to 
as PL /I. 

The manual consists of six sections. 
Section 1 is an introduction to the Lan- 
guage Conversion Program. Section 2 
describes the Control Phase of the program. 
Sections 3, 4, 5, and 6 describe the phases 
into which the program is divided. 



IBM System/360 Operating System, ALGOL 

Language, Form C28-6615 1 
IBM -System/3 60 .Operating .System, PL/I 

lZL_P£23££Linmer^s_Guide, Form C 28- 6591 
ALGOL- to- PL/I_Langua ge_Conversion_P ro- 

gram_for_IBM_System/3 60_Op_erating 

System, Form C33-200Q2 



In addition, the reader will find it 
useful to be acquainted with the 
publications: 



S.BM_System/3 60_Operatinq_Sy_stera x _Job 
Control_L__ng__ac[e_. Form C28-6539. 

JgM_ i System/3,6 i ■Operating System^PL/I 
L§LE2li§.2§._SEe £ if i c a t i o n s , Form 
Y33-6003 
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The reader must have a working knowledge 
of the ALGOL and PL/I languages and the 
System/360 Operating System. 

The reader should have some familiarity 
with the contents of the following 
publications: 



deferred to in the text as "the ALGOL lan- 
guage manual" 

2 Referred to in the text as "the ALGOL-to- 
PL/I language conversion manual 11 



FiEsi_Sdition_J.Januaryi._19 6 9_ 

Specifications contained herein are subject to change from time to time. 
Any such changes will be reported in subsequent revisions or Technical 
Newletters. 
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representative or to the IBM branch office serving your locality. 

A form for readers comments is provided at the back of this publica- 
tion. If the form has been removed, comments may be addressed to IBM 
France, Centre d'Etudes et Recherches, Programming Publications, Depart- 
ment 843, 06 - La Gaude, France. 
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Figure 1. Overall Logic of the LCP 
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INTRODUCTION 



The ALGOL- to- PL/I Language Conversion Pro- 
gram, henceforth referred to in this publi^ 
cation as "the LCP", helps the user to 
transfer to PL/I by converting System/360 
Operating System ALGOL source programs into 
PL/I (F) programs. In this publication, 
the converted PL/I programs are referred to 
as "target" programs. The LCP itself is 
written in PL/I (F) language. It is dis- 
tributed in object module form for inclu- 
sion in the user's library. 

The Job Control Cards used to call the 
program from the library are described in 
the ALGOL-to-PL/I language conversion 
manual* 



The LCP is divided into the following 
six phases : 

1. Control Phase 

2. Phase 10, which performs the following 
functions: 

• Converts the "hardware representa- 
tions" used in ALGOL into internal 
form 

• Builds a dictionary of identifiers 

• Detects the block structure of the 
progra m 



The ALGOL source program must be free 
from errors; i.e., it must meet the follow- 
ing requirements : 

• It has been successfully compiled, 
without producing error messages, into 
a System/360 machine code version that 
produces the results expected by the 
user. 

• It consists of statements that are in 
strict conformity with the syntactic 
and semantic rules laid down in the 
ALGOL language manual. 

Since these requirements are assumed, 
the LCP makes no attempt to detect errors, 
nor to continue scanning after an error has 
appeared, nor to give precise diagnostics. 
The LCP may, however, attempt to process an 
ALGOL program containing an error (where, 
for example, a card has been modified after 
compilation). In this case, conversion may 
stop altogether or, if carried out, may 
result in a PL/I program of dubious meaning 
and validity. In addition, note that: 

• If the ALGOL program contains function 
designators that produce side- effects, 
the converted program may produce dif- 
ferent and unpredictable side-effects. 



• Converts the elements of the pro- 
gram that do not require reference 
to the dictionary, e.g., comments, 
strings, and certain declarations. 

3. Phase 20, which searches in the dic- 
tionary created during Phase TO, for 
the types of the identifiers 

4. Phase 25 (optional) , which completes 
the dictionary if necessary 

5. Phase 30 (optional) , which generates 
procedure declarations, using the dic- 
tionary created by Phase 10 and, if 
necessary, completed by Phase 25 

6. Phase 40, which generates the PL/I 
statements, and all comments. Phase 
40 converts all the elements not con- 
verted by Phases 10 and 30, statement 
by statement, using, when necessary, 
the dictionary of identifiers built by 
Phase 10, and the identifier descrip- 
tions added by Phase 20. 



TABLES 



If, for any reason, a source statement 
cannot be converted (see Appendix D of 
the language conversion manual), a mes- 
sage to that effect is printed in the 
output listing. 



The LCP uses a number of taDles. The way 
in which these tables are used by the indi- 
vidual routines is described in the rele- 
vant sections. Appendix A contains a full 
description of the most important tables. 
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OVERALL LOGIC OF THE LCP 



Figure 1 illustrates the overall internal 
logic of the LCP and shows the relationship 
among the phases of the program. 

The Initialization Procedure of the Con- 
trol Phase receives control from the 
System/360 Operating System and then calls 
Phase 10. 

Phase 10 takes the AL30L source program 
from SYSIN as its input. It scans the 
source program, placing the intermediate 
text on SYSUT1, and builds the dictionary, 
which is placed on SYSUT2. Optionally, 
Phase 10 can list the source program on 
SYSPRNT. It finally gives control back to 
the Control Phase, which calls Phasa 20. 

Phase 20 takes the intermediate text and 
the dictionary as its input. It inserts 
the identifier types in the intermediate 
text, and, in certain cases, builds a table 
which is placed on SYSUT1. Control again 
returns to the Control Phase. 

The Control Phase now tests for the pre- 
sence of procedure declarations in the 
source program. If the result of this test 
is positive, and if, in addition, certain 
conditions are present, the Control Phase 



calls Phase 25 to complete the dictionary, 
using the table created by Phase 20. (For 
details of the requisite conditions, see 
the section describing Phase 25.) Control 
returns to the Control Phase. 

The Control Phase then calls Phase 30 
which generates the PL/I PROCEDURE state- 
ments. Note that: 

1. Phase 30 may be called directly after 
Phase 20 if Phase 25 is not required. 

2. If the source program contains no pro- 
cedure declarations, neither Phase 25 
nor Phase 30 are required. 

Phase 40, the last phase of the program, 
is therefore called, via the Control Phase, 
either after Phase 30 or directly after 
Phase 20. Phase 40 generates the PL/I sta- 
tements and comments, taking the modified 
intermediate text on SJfSUTI as its input. 
On completion of Phase 40, control returns 
for the last time to the Control Phase 
which uses the Return Procedure to generate 
error messages if necessary. (An error 
message may have been issued during a pre- 
vious phase if a syntactic error was 
detected in the program.) 

Control finally returns to the Operating 
System. 
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Figure 1. Overall Logic of the LCP 
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CONTROL PHASE 



The LCP Control Phase (see Chart 001) 
receives control from the System/360 
Operating System by means of an EXEC con- 
trol card. This phase controls the flow of 
the program, using two procedures: 

1. Initialization Procedure 

2. Return Procedure 

The actions performed by these proce- 
dures are described below. 
Initialization Procedure 

The Initialization Procedure initializes 
the settings of the switches in the LCP 
communication area. These are set either 
to a standard status, or to the status 
indicated by the user in his EXEC control 
invokes Phase 10. 



RETURN PROCEDURE 



The Return Procedure, which is entered on 
completion of each phase of the program, 
calls the following phase. On completion 
of Phase 40, the Return Procedure generates 
error messages where necessary and restores 
control to the System/360 Operating System. 
Should the program stop at any time during 
execution because an error has been 
detected, the Return Procedure automatical- 
ly regains control and issues an appropri- 
ate message. Control then returns to the 
Operating System. 
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Chart 001. Overall Logic of Control Phase 



****A1*** ****** 
t ENTRY PROM * 
K OS/360 * 

* * 

*************** 



***A2************ 



***************** 



.* CHARACTER *. YES 

k. SET .* 

*. OPTION .* 



.♦SOURCE *. 
CARD 
LISTING 
. OPTION . * 



*****F2********** 

* * 

♦INITIALIZE DECK* 

* * 

* * 
***************** 



*****B3********** 

* * 

->*INITIALIZE SIZE* X 

* * 

* * 
***************** 



*****C3 ********** 



***************** 



*****D3********** 

* * 

->*INIT:IALIZE ISO * 

* * 

* * 
***************** 



*****E3 ********** 

* * 

* INITIALIZE * 
->* SOURCE *- 

* * 

* * 
***************** 



CONTRL 

*****G 3 ********** 
*PH10 002A2* 



* SCAN SOURCE *- 
k PROGRAM BUILD * 
k DICTIONARY * 
***************** 



>* SEARCH * 
♦DICTIONARY FOR * 
* IDENTIFIERS * 
***************** 



****K1 ********* 
RETURN TO * 
( OS/360 * 
* 
*************** 



***************** 



*****K2 ********** 



*************** 



-* PROCESS * 

* PROCEDURE * 

* DECLARATION * 
***************** 



***************** 



Control Phase 11 



EMSE__i© 



Phase 10 performs three main functions: 

1. It acts as a preprocessor by convert- 
ing into internal form the ALGOL 
"hardware representations" (see Chapt- 
er 1 and Appendix 2 of the ALGOL lan- 
guage manual) and by converting into 
PL/I certain basic elements of the 
source program. 



De tect ion _of_ Bloc k_ Structure 
The nested program structure is detected by 
placing the appropriate delimiters in a 
stack, and by setting an indicator in the 
intermediate text. The block structure of 
the source program defines the scope of the 
identifiers. This procedure is used also 
to recognize the end of 'FOR' statements 
and of procedure declarations. 



■ 



2. It detects the block structure of the 
program. 

3. It builds a dictionary of declared or 
specified identifiers. This dic- 
tionary serves for the conversion of 
assignment statements, subscript ex- 
pressions (other than constants), and 
actual parameters (called by value) . 

The overall logic of this phase is illu- 
strated in Chart 002. 



Pre processing 

The input to Phase 10 is the ALGOL source 
program on SYSIN. After initializing its 
internal parameters and tables, Phase 10 
scans the ALGOL program to perform the fol- 
lowing actions: 

• ALGOL basic symbols with a hardware 
representation that contains more than 
one character are recognized and con- 
verted into fixed- length internal form. 

• Blanks outside strings and comments are 
eliminated. 

• Strings and various forms of comments 
are converted into their PL/I eguiva- 
lents. When the seguence */ appears 
within the text of a comment, it is 
converted into *-. In an open string, 
a single quotation mark is replaced by 
double quotation marks. 

• Identifiers over six characters in 
length are truncated to six characters. 
(Identifiers in the intermediate text 
always contain six characters; blanks 
are added if necessary.) 

• Certain delimiters (e.g. 'END 1 , semi- 
colon, and 'DO') are recognized and 
used for delimiting essential com- 
ponents of the ALGOL program, such as 
declarations and statements. An 
internal reference number is added to 
each of these elements. 



The LCP handles a procedure declaration 
seperately from the rest of the block in 
which it occurs, and considers it as a new 
block. A number is assignel to each block 
and to each procedure declaration. The 
dictionary (see Appendix A), is thus 
divided into two sections: 



1. DICEXT, which contains entries rela- 
tive to blocks. 



2. DICPRO, which contains entries rela- 
tive to procedure declarations. 



At the end of a program- block, the 
corresponding section is placed on SYSUT2, 
using a key to identify the section. (See 
Appendixes A and B for further details.) 



Con struction_of_ Dictionary, 

Phase 10 builds the dictionary using the 

source program declarations and 

specifications. 



Identifiers are checked, before being 
entered in the dictionary, to prevent con- 
flict with built-in PL/I function- names or 
with relational operators when the 48- 
character set is being used. In the event 
of a possible conflict, an appropriate flag 
is entered in the dictionary. 

In the case of a procedure declaration, 
the description of the formal parameters is 
completed using the specifications. The 
declaration processing routine attempts to 
convert as much as possible of the declara- 
tion. If a switch-declaration cannot be 
converted, a flag to that effect is placed 
in the intermediate text. 

The output from Phase 10 is an interme- 
diate text, placed on SYSUT1 , using the 
internal reference number as a key. 
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PHASE 10 ROUTINES 



PROCESSING ROUTINES 



To perform its various functions, Phase 10 
uses a number of routines. These fall into 
the following two categories: 



1. Input/output routines 



2. Processing routines 



This section contains detailed descriptions 
of the routines used by Phase 10 to process 
various elements of the ALGOL source pro- 
gram. The information given about each 
routine is set out as follows: 

• Purpose of the routine 

• Calling phase or routine (s) 

• Processing 

• Routine (s) called 

• Exit from the routine 



INPUT/OUTPUT ROUTINES 



In order to simplify reference, the rou- 
tines are described in alphabetical order. 
Each routine is illustrated in a separate 

flowchart. 



These are used by Phase 10 to perform 
various simple and frequently recurring 
functions, as described below: 



BUFPUT — places the contents of the out- 
put buffer on SYSUT1. 

DICPUT — places dictionary DICEXT on 
SYSUT2. 

GENER — places in the output buffer 
characters that have been 
stored in the intermediate 
area. 

GETCAR — places in the word TCHAR the 

character in the input buffer, 
positions a pointer to the next 
character, and if necessary, 
reads the next card. 

GQUOT -- reads the ALGOL keyword enc- 
losed by guotes, converts it 
into internal code, and enters 
the converted keyword in 
CODCAR. Determines the type of 
the keyword (declarator, speci- 
ficator, etc.) and enters the 
information obtained in LUC. 

P R TNT -- lists the ALGOL source program 
on SYSPRNT. 

PROPUT — places dictionary DICPRO on 
SYSUT2. 

PUTCAR -- places in the output buffer the 
character contained in CODCAR 
and positions a pointer to the 
next character. 

FINPG -- End-of-phase routine, which 
closes the files, places the 
contents of the last output 
buffer on SYSUT1, and returns 
control to the Control Phase. 



ARRAYS 



Charts 003,004 



Purp_os e : To process the text following the 
ALGOL declarator 'ARRAY'. 

Called_by: DECLAR. 

EE2.2§ssing_: Generates the list of array- 
names, converts the bound-pair-list into 
internal code and, depending on the type of 
the list, generates ona of the following: 

• FLOAT (16) 

• FIXED BINARY (31) 

• BIT(1) 

Enters in DICEXT the information concerning 
each identifier of the array-name list. 

l2.Ht in es_c ailed: BUFPUT, GLABEL, GENER, 
GETCAR7 PUTCAR. 

Exit: DECLAR. 



COMENT 



Chart 005 



Purp_ose: To process comments. 

Called_Dy_: QUOT. 

Processing: Places any text between 'COM- 
MENT' and a semicolon into BUFFER, enclos- 
ing this text between the delimiters /* and 
*/. Replaces the sequence */, when it 
occurs in the ALGOL program, by *-. 



S2Ht in es_called : 

PVIRGUT 

Exit: SCAN. 



BUFPUT, GENER, GETCAR, 
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DECLAR 



Charts 006,007 



Purpose: To process ALGOL declarators. 

Called_by_: QUOT. 

EEOcfLssi n 2 : Detects the type of the 
declarator (s) , places in area TYPCAL the 
information pertaining to the declaration. 
If one of the declarators is 'ARRAY 1 , 'PRO- 
CEDURE 1 , or 'SWITCH', goes to the routine 
ARRAYS, PROCED, or SWITCH respectively. If 
not, enters identifiers of a same type, 
together with the type, in dictionary 
DICEXT. Depending on the declarator, 
generates one of the following: 

• DECLARE . .. FLOAT 

• FIXED BINARY (31) 

• BIT ( 1) 

If necessary, updates the stack. 

Routines_called: DICPUT, GENER, GETCAR, 
GLABEL, GQUOT. 

Exit: ARRAYS, PROCED, SCAN, SPE1, SWTTCH. 



DEPOIN 



Chart 008 



Purpose: To process the following 
characters: : := = 



a. If the combination of the two charac- 
ters constitute an ALGOL symbol, con- 
verts the symbol into internal code 
and places it into BUFFER. 

b. If the two characters do not consti- 
tute an ALGOL symbol, converts the 
first character only and places it 
into BUFFER. 



R°.H t in es_ca 1 led : 
UNPOIN. 



PUTCAR, PVIRGU, SCAN, 



I 



Exit: SCAN or SCA2. 



£LABEL Chart_010 

Purpose: To place the current identifier 
in areas IDENT1 and IDEXT6. 

Called_by_: ARRAYS, DECLAR, LETR, PROCED, 
SPECIF, SWITCH. 

l£22§ ssincj : Ignoring blanks, fetches the 
characters making up the identifier, and 
truncates the latter to six characters. 
Tests whether or not a $ sign should be 
added as suffix to the identifier, and adds 
$ if required. Calculates length of the 
identifier. 

E.2.U fe. in e_ca 1 le d : None. 
Exit: Calling routine. 



Called_by_: SCAN. 

Processing: Detects whether the character 
sequence to be processed is a colon , an 
equal sign, or a combination of the two. 
Converts the character into internal code 
and places it into BUFFER. 

Pou t ines_cal 1 ed : GETCAR, PUTCAR, SCAN. 

Exit: SCAN or SCA1. 



DESPEC 



Chart 009 



Pu rpo sp : To process a seguence of two spe- 
cial characters. 

Calle_d_b_Y : SCAN. 

£l2cessincj: If the first character is a 
semicolon, calls routine PVIRGU to process 
it. If the first character is a period, 
aoes to routine UNPOIN. If it is neither 

of these : 



LEND 



Chart 011 



Purpose: To process the ALGOL word 'END' 
and the comments, which, in certain cases, 
follow it. 

Called_by_: QUOT. 

JPl°£S:§LSinc[ : Tests the contents of the 
stack. If it finds that the last symbol in 
the stack indicates the beginning of a 
loop, it generates END. If it finds that 
the last symbol indicates a block, it 
places DICEXT on SYSUT2 and generates END. 
Tests for the beginning of a comment; if a 
comment is found, places it into BUFFER, 
enclosing it between the delimiters /* and 
*/. If the comment is followed by: 

• 'ELSE', generates a ; ELSE seguence, and 
returns to SCAN. 

• A semicolon, generates a semicolon, 
processes it using routine PVIRGU, and 
returns to SCAN. 
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• 'END', generates a semicolon and 
returns to LEN1. 

Rou tine s_ca lied : BUFPUT, DICPUT, GENER, 
GETCAR, PVIRGU, QUOT. 

Exit: LEN1, SCAN. 



LETR Cbart_012 

Purpose: To process identifiers. 

Called_b^: SCAN. 

Processing: Reads the identifier, using 
routine GLABEL, and places it into BUFFER. 

Rout ines_ca lied: BUFPUT, GLABEL, SCAN. 

Exit: SCA2. 

PAR EN Ch : art_013 

Purpose: To generate letter-strings that 
occur in procedure or function declarations 
or in procedure or function calls. 

Called_by_: PROCED, SCAN. 

Processing,: Generates the letter-string, 
enclosing it between the delimiters /* and 
*/. 

Rou t i ne s_ca 1 le d : GENER, GETCAR. 

Exii : Calling routine. 

PROCED Chart _0 14 

Purpose: -.To process procedure 
declarations. 

Called_by: DECLAR. 

Processing: Detects whether or not the 
procedure contains parameters, and updates 
the stack accordingly. If parameters are 
found, processes them. Enters information 
relating (a) to procedure identifiers in 
dictionary DICEXT, (b) to parameter identi- 
fiers in dictionary DICPRO. Generates pro- 
cedure declarations. 

Eou tine s_cal led : DECLAR, GENEP, GETCAP, 
GLABEL, PAREN. 

Exit: DECLAR. 



PVIRGU Chart_015 

Purpose: To generate an end-of-loop, an 
end- of- procedure, or an end-of -function, 
depending on the contents of the stack. 

Called_by_: DESPEC, LEND, UNPCIN, VNSPEC. 

E.£ocessinc[: Tests the last item in the 
stack. Then, if the last item in the stack 
is: 

• DO, generates an END; sequence. Goes 
on to test the precadinq item, and so 
forth. 

• A non-type procedure containing parame- 
ters, places DICPRO on SYSUT2, and 
generates: END; 

• A type procedure containing parameters, 
places DICPRO on SYSUT2, and genera- 
tes: RETURN(<$RTUPN) ; END; 

• A non-type procedure with no parame- 
ters, generates: END; 

• A type procedure with no parameters, 
generates: RETURN ($ PTURN) ; END; 

If the program is an ALGOL procedure, 
enters the name and type of the procedure 
in PGPROL and PGPROT respectively for tran- 
smission to Phase 20. 

Hou tin e_ call ed : GENER. 

Exit: Calling routine. 



gup_T £Jl£.ii_:111. 

Purpose: To process the following ct^ a r me- 
ters or groups of characters: ouote 
separator (exponent part), V', '(' fol- 
lowed by aa ALGOL string, ALGOL k.pywor--' 
enclosed by quotes. 

Called_by: LEND, SCAN. 

Processing: Recognizes aroups of charac- 
ters beginning with a quotation mark. 

• If it finds the quote separator 
(exponent part), converts it into 

internal form, and places it on SYSUT1. 

• If it finds '/'/ converts it into 
internal form, and places it on SYSUT1. 

• If it finds '{'* places the string that 
follows, up to the last •) ', into BUFF- 
ER, Between quotes. 
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• If it recognizes the group of charac- 
ters as an ALGOL keyword, and if: 



a. It finds specifiers or the word 
•CODE', goes to routine SPECIF. 

b. It finds any declarator except 
'CODE 1 , goes to routine DECLAR. 

c. It finds 'COMMENT' , goes to routine 
COMENT. 

d. It finds 'END', goes to routine 
LEND. 

e. It finds 'DO', 'THEN', or 'ELSE', 
processes them. 

f. It finds any other ALGOL keyword, 
converts it into internal form and 
places it into BUFFER. 



E2iJiiiies_ called: BUFPUT, COMENT, DECLAR, 
GENER, GETCAR, GQUOT, LEND, PROPUT, PUTCAP, 
SCAN, SPECIF. 

Exit: COMENT, DECLAR, LEND, SCAN, SCA1 , 
SPECIF. 



SCAN b Ch_3_rt_01_7 

Purpose: To call the appropriate routine 
required to process a character. 

Called_by_: All routines except ARRAYS, 
FINPG, PROCED, SWITCH. 

££2£§.s_si ng : Reads and tests the character. 

• If it is a letter, goes to routine 
LETR. 

• If it is a digit or a left parenthesis, 
processes it. 

• If it is a colon or an = sign, goes to 
routine DEPOIN. 

• If it is a guotation mark, goes to rou- 
tine QUOT. 

• If it is any other special character, 
tests whether it is the first of a 
group of two special characters; if so, 
goes to routine DESPEC, if not, goes to 
routine UN SPEC. 

R°utines_called: DEPOIN, DESPEC, GENER, 
GETCAR, PAREN, PUTCAR, QUOT, VNSPEC. 

Exit: DEPOIN, DESPEC, LTR, QUOT, SCAN, 
SCA2, VNSPEC. 



SPECIF Charts_018 t - 19 

Purpose: To process the following: 

• 'CODE' 

• Text following specifier 

• Value part 

Called_by_: DECLAR, QUOT. 

LE2£essin£: There are two entry-points to 
this routine: SPECIF and SPE1. At entry- 
point SPECIF, processes a specificator or 
the word 'CODE*. Generates the appropriate 
PL/I declaration and enters the relevant 
information in DICPRO. 

At entry-point SPE1, processes the keywords 
used as. specifiers which are also used as 
declarators. Partially computes TYPCAL and 
enters the information obtained in DICPRO 
and in DICEXT, which already contains the 
procedure type. 

E°_u.tin es_call ed : GENER, GETCAR, GLABEL, 
GQUOT, PROPUT, SCAN. 

Exit: SCAN. 

SWITCH Chart_02 

Purpose: To process the text following the 
declarator 'SWITCH'. 

Called_by_: DECLAR. 

Process 1113: Ascertains which identifiers 
follow the declarator 'SWITCH', and 
generates the declaration LABEL INITIAL. 
If necessary, places number of error mes- 
sage in RMES. 

Ko u t i n es _c al 1 e d : GLABEL, GENER, GETCAR, 
SCAN. 

Exit: SCAN. 

UNPOIN £hart_0zl 

Purpose: To process groups of special 
characters beginning with a period. 

Called_by: DESPEC. 

Processing: Ascertains whether or not the 
period is the first of a group of two 
characters representing an ALGOL symbol. 



I 
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• If not, i.e., if the period appears on VKSPEC Chart_022 

its own, converts it into internal code 

and places it into BUFFER. 

Purp_ose: To process isolated special 

• If so, and if the period is followed by characters, 
another period (..), converts the group 

into internal code and places it on 

SYSUT1. Called_by.: SCAN. 

• If so, and if the period is followed by Processings If the character is a semico- 
a comma (.,), calls the routine PVIRGU Ion, calls routine PVIRGU to process it. 

to process the group In all other cases, converts the character 



lou t ines_ca 1 led : GETCAR, PUTCAR, PVIRGU, 
SCAN. 



Exit: SCAN, SCA1, SCA2. 



into internal code and places it into 
BUFFER. 



Routines_called : PUTCAR, PVIRGU, SCAN. 
Exit: SCA6. 
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Chart 002. Overall logic of Phase 10 



****A2********* 

* ENTRY FROM * 

* CONTROL PHASE * 

* * 
*************** 



I 



*****D1 ********** 

*CODE GROUP AND * 
■* PLACE INTO *< 

* BUFFER * 

* * 
***************** 



READ A CHAR. 
* OR GROUP OF * 
CHAR 
***************** 



****C3********* 
k RETURN TO * 
► CONTROL PHASE * 
* * 

*************** 



***************** 



DECLARATION 



*****F3********** 
* 
* 
■>* 



***************** 



*****G1 ********** 

* * 

* CODE ALGOL * 

X * KEYWORD AND *< 

A *PLACE ON SYSUT1* 

* * 
***************** 



.•KEYWORD*. 



*. CESSING 



*****G3********** 

* * 

♦ENTRY IN DICEXT* 

* * 

* * 
***************** 



*****H1*** ******* 



***************** 



PROCEDURE .* X 



***************** 



Chart 003. ARRAYS Routine, Part 1 of 2 



*****C1* ********* 



* GENERATE ( *<- 



***************** 



*****D1********** 



***************** 



*****E1*** ******* 

* GENERATE * 
♦IDENTIFIER WITH* 

* COMMA * 

* * 
***************** 



**** 

*003* 

* F1 *-> 



*****G1**** ****** 

* * 

* ENTER * 

* IDENTIFIER JN * 

* DICEXT * 

* * 
***************** 



*****H1********** 

* ENTER TYPE OF * 

* IDENTIFIER IN *- 

* DICEXT * 

* * 
***************** 



***** 
*00<t* 
* A1* 



***** 
*003* 
* A3* 

* * 



***************** 



*****B3*** ******* 



* GENERATE ( 



***************** 



ARR1 .*. 

C3 *. 
.♦DELIHTR*. 
NO .* FOLLOWING * 

*.IDENTIF LEFT 

*. BRACKET .* 



*****Dt********** 



***************** 



*****F4* ********* 

* * 

* * 

* GENERATE ( * 

* * 

* * 
***************** 



*****£ t|********** 



***************** 



*****Ht********** 



***************** 



*****Jt********** 

* * 

* * 

* SET SW2 TO 1 * 

* * 

* * 
***************** 



V 
***** 
*017* 
* B3* 

* * 



*****E 5** ******** 

* * 

* * 
->* GENERATE ( * 

* * 

* * 
***************** 
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Chart 004. ARRAYS Routine, Part 2 of 2 



•004* 
* A1* 

* * 



I 



SEARCH FOR 
RIGHT BRACKET 



***************** 



*****B1********** 



***************** 



•****C2********** 



->* GENERATE /) * 



******••••**••••• 



•****D1 ********** 

♦ENTER NUMBER OF* 

* DIMENSIONS IN • 

* DICEXT * 

* * 
***************** 



*****E1 ********** 



***************** 



.* *. XES 

. DELIMITER .* - 

*. COMMA .* 



*****F2********* 



**************** 



*****G1 ********** 

* * 

* GENERATE ) * 

* * 

* * 
***************** 



*****H1 ********** 

* * 

* SET SN2 TO * 

* * 

* * 
***************** 



*****G2********** 



•GENERATE COMMA * 



***************** 



V 

***** 

• 003* 

• F1* 



¥ 

***** 

♦ 007* 

* H1* 

* * 
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Chart 005. COMENT Routine 



***** 

♦ 005* 

* A1* 

* * 



***************** 



***B1 ************ 



***************** 



CI *. 

. * *« 

*." SEMICOLON 



***E1* *********** 

" * PLACE *l 

X CHARACTER <— 

* INTO BUFFER * 

***************** 



*****E2 ********** 

* * 

-* REPLACE BY *- * 

* * 

* * 
***************** 



COM1 V 

*****D3 ********** 



***************** 



*****E3 ********** 



***************** 



***************** 



***** 
*017* 
* B3* 
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Chart 006. DECLAR Routine, Part 1 of t ♦ooe* 

* A2* 



**A1 ******* 



*********** 



*****B 2 ********** 

* PLACE * 
♦IDENTIFIER AND ♦<- 
♦TYPE IN CONABEA* 

* * 
***************** 



.* IS LAST 
->*• CHAHACTEB 
*. 8BEGIN . 



***************** 



***** 
*019* 
* A3* 



***B1 ************ 



***************** 



I 



* PLACE * 
♦DECLABATOB TYPE* 

* IN TYPCAL * 

* * 
***************** 



*****E1********** 



V ***************** 
***** 

♦ 014* 

* A3* 



**E2******+ 



*********** 



♦ IS *. 

DECLAEATOE . 
K. PROCEDURE. ♦ 



F2 *• 

.* IS *. 

. * SECOND *. 

, DELIMITER . 

♦.PROCEDURE.* 



♦♦♦♦♦G1 ********** 

* * 

♦ADD 8 TO TYPCAL* 

* * 

* * 
***************** 



*****G2 ********** 

* * 

* ADD it TO TYPCAL* 

* * 

* * 
***************** 



**H1******* 



*********** 



ABRAY *. 
TYPE 
.SPECIFIED.* 



* Y,ES 



*****H4***+ ****** 



♦***********♦*♦♦* 



*****J1* ********* 



*****J3 ********** 



***************** 



***** 

♦ 014* 

* A3* 

* * 



***************** 



♦♦***K3* ********* 

* ENTER * 
♦IDENTIFIED AND * 

* TYPCAL IN * 

* DICEXT * 

* * 
***************** 
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***** 

♦ 007* 

* B2* 



Chart 007. DECLAR Routine, Part 2 of 2 



***** 

♦007* 
* B2* 



* WAS 

DECLARATOR 
*. SWITCH . 



***** 
*020* 
* A2* 



***** 
*003* 
* A3* 



.* DELIMITER 
.AFTER IDENT 
*. COMMA . 



*****E2* ********* 

* GENERATE ONE * 

* BLANK AND * 

* IDENTIFIER * 

* * 
***************** 



***** 
*007* 
* H1* 



*****D3 ********** 

* * 

■>* GENERATE ( * 

* * 

* * 
***************** 



***************** 



* GENERATE ) * 



***************** 



*****F4 ********** 

* * 

->*GENERATE COMMA * 

* * 

* * 
***************** 



*****S4********** 

* READ NEXT * 
♦IDENTIFIER AND * 

* ITS DELIMITER * 

* * 
***************** 



DEC2 V 

*****H1* ********* 
♦GENERATE FLOAT * 
* OR FIXED * 
*BINARY(31,0) 0R*O 



BIT(lf 



***************** 



*****H4* ********* 

* ENTER * 
♦IDENTIFIER AND * 

* TYPCAL IN * X 

* DICEXT * 

* * 
***************** 



*****J2 ********** 



***************** 



***** 
*017* 
* B3* 

* * 
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Chart 008. DEPOIN Routine 



***** 

*008* 
* A1* 

* * 



A1 



*. 



* IS * 

TCHAR COLON 

*. .4 

*. .* 
*. .* 

YES 



***B1 ************ 



***k2************ 

* CODE AND * 
-> PLACE = INTO 
* BUFFER * 

***************** 



1 

***** 

♦017* 

* B3* 

* * 



I 



***************** 



***D1* *********** 

* CODE AND * 
PLACE COLON 
* ON SYSUT1 * 

***************** 



***C 2 ****** ****** 

* CODE AND * 
-> PLACE : = ON 
* SYSUT1 * 

***************** 



***** 
*017* 
* B3* 

* * 



***** 

♦ 017* 

* C3* 
* * 
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Chart 009. DESPEC Routine 



***** 

♦ 009* 

* B2* 



.* FIRST 
. CHARACTER 
*. SEMICOLON. 



***B3 ************ 

* PLACE CODED * 
-> SEMICOLON 

* INTO BUFFER * 

***************** 



***** 
*021* 
* B1* 



FIRST 
CHARACTER 
. PERIOD . 



*****C3 ********** 



***************** 



***D1************ 
PLACE FIRST 
* CODED * 

CHARACTER <-- 
* INTO BUFFER * 

***************** 



***** 

♦ 017* 

* E3* 



ALGOL 
SYMBOL 



***E2**** ******** 

* PLACE CODED * 
SYMBOL INTO 
* BUFFER * 

***************** 



*****D3********** 
*PVIRGU 015A2* 

* PROCESS * 

* SEMICOLON * 

* * 
***************** 



V 
***** 
*017* 
* E3* 



V 
***** 
*017* 
* B3* 
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Chart 010. GLABEL Routine 



****A2*** ****** 
k ENTRY FROM * 

* CALLING < 

* ROUTINES * 
*************** 



I 



***B2***** ******* 
READ 
* IDENTIFIER * 
AND INPUT 
* BUFFER * 

***************** 



.♦IDENTIFIER *. YES 

♦.LONGER THAN 6.* 

♦.CHARACT. .♦ 



**C3******* 



*********** 



♦***D1* ******** 

* RETURN TO * 
♦CALLING ROUTINE*<- 

* * 
*************** 



GLABEL 

CALLER BY 

LETR 



.♦IDENTIFIER *. YES 

<. IN TABLE . * 

*. CHK .* 



**E3******* 

» * 

INCREMENT 

LENGTH 

COUNTER 

k ♦ 

♦**♦♦****** 



*****F3* ********* 



***************** 



****G 2 ********* 

* RETURN TO * 
♦CALLING ROUTINE* 

♦ ♦ 
*************** 
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Chart 011. LEND Routine 



***** 

*011* 
* A3* 

* * 



OUTPUT *. NO 

BUFFER .* 

EMPTY .* 



***** A 4 ********** 

* GENERATE' * 

* SEMICOLON AND * 
->* SKIP TO NEXT * 

* BUFFER * 

* * 
***************** 



*****F1 ********** 



**B2******* 



*********** 



*****C2* ********* 



***************** 



YES .* IS DO 

*. LAST ITEM 

*.OF STACK . 



.* BEGNP *. 
. LAST ITEM . 
*.OF STACK .* 



*****C4********** 



***************** 



*****D3 ********** 



* GENERATE END * 



***************** 



V 

.*. LEN3 

E3 *. *****E4********** 

,.* *. * GENERATE * 

COMMENT *. YES * COMMENT * 

FOLLOWS .* >*ENCLOSED BY /* * 

.* * AND */ * 

*. .* * * 

*. .* ***************** 

* NO ■ 

■ i 

i < x 

V 
.*. LEN7 

F3 *. *****F1********** 

**. YES * GENERATE * 

SEMICOLON .* >* SEMICOLON *- 



***************** 



*'****G2 ********** 



***************** 



***************** 



***** 
*017* 
* B3* 



***************** 



***** 
*017* 
* B3* 
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Chart 012. LETR Routine 



***** 

♦ 012* 

* A1* 

* * 



I 



♦READ IDENTIFIER* 

* * 

* * 
***************** 



.* ROOM *. 

K FOR 
IDENTIFIER 



***B2****** ****** 



********,.******** 



*****C1********** 

* * 

* PLACE * 
♦IDENTIFIER INTO* 

* BOFFER * 

* * 
***************** 



***** 
*017* 

* E3* 
* * 



28 



Chart 013, PAREN Routine 



****A1 ********* 

* ENTRY FROM * 
♦PROCED OB SCAN * 

* * 

*************** 



*****B1********** 



* GENERATE /* * 



***************** 



X — >*GENERATE TCHAR * 

* * 

* * 
***************** 



***D1* *********** 



***************** 



El *. 

SPECIAL 
CHARACTER 



***F1* *********** 



READ . . ( OR 



***************** 



+****G1 ********** 



* GENERATE */ * 



***************** 



****H1 ********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 014. PROCED Routine 



***** 

*01<U 
* A3* 

* * 



***A3************ 



I 



***************** 



*****B3 ********** 

* ENTER * 

* IDENTIFIER IN * 

* DICEXT * 

* * 
***************** 



***************** 



***D1************ 



***************** 



**E1******* 

INCREMENT 

COUNTER 

NIDPRO 

< i 

*********** 



*****F1********** 

* ENTER * 

* IDENTIFIER IN * 

* DICPRO * 

* * 
***************** 



+****G1* ********* 

* * 

* ENTER BLIPRO * 

* AND NIDPRO IN * 

* DICPRO * 

* * 
***************** 



*****H1********** 



***************** 



YES .* IS *. 

X *. DELIMITER . 

*. COMMA .* 



*****C2 ********** 

* INCREMENT * 
♦COUNTER BLIPRO * 

-* AND ENTER NBR *<- 

* IN TYPCAL * 

* * 
***************** 



♦GENERATE STRING* 
* * 

***************** 



♦GENERATE COMMA ♦ 



***************** 



■*. DELIMITER ( . *- 



*****E3********** 

* * 

* * 

* GENERATE ) *- 

* * 

* * 
***************** 



*****J3********** 

* ENTER NIDPRO * 
->* AND TYPCAL IN * 

* DICEXT * 

* * 
***************** 



*****Ct********** 



***************** 



Dt *. *****D5********** 

.*" PROCED "*. YES * CHANGE PROCED * 

, LAST ITEM .* >* TO PROCQ * 

*.IN STACK .* * * 

*. .* * * 

*. .* ***************** 

* NO • 

i< x 

V 
. *. 
EU *. *****E5********** 

. *" IS "*. YES * READ NEXT * 

. DELIMITER .* >* CHARACTER * 

*. PERIOD .* * * 

*. .* * * 

*. .* ***************** 

* NO • 



***** 

*007* 

* H1* 

* * 



***** 

*007* 

* H1* 

* * 
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Chart 015. PVIBGU Routine 



****A2* ******** 

* ENTRI FROM * 

* DESPEC. LEND, * 
♦UNPOIN, ONSPEC * 

*************** 



**B1******* 



*********** 



*****C1 ********** 
* GENERATE END * 



***************** 



IS DD 
LAST ITEM 
.OF STACK . 



C2 *. 
.* BEGIN *. 
YES .* OR BEGNP * 

*.LAST ITEM OF 

*. STACK .* 



***D 3***** ******* 



***************** 



. * FUNCTION 1 
.LAST ITEM OF 
*. STACK .* 



*****F 2* ********* 



***************** 



***:**E3 ********** 



♦ GEiNERATE RETURN* 
->* (SRETURN) * 



***************** 



****G2* ******** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 016. QUOT Routine 



***** 

*016* 
* A3* 

* * 



*** A3 ************ 
GQ0OT 



***************** 



Q0T10 
YES 



DECLARATION . *<- 



B2 *. 

.* *. 

SEPARATOR !*<- 



NO .* "STRING 
— *. OR V 



***B5 ************ 



* PLACE CODED * 
V ON SYSUT1 



***** 

♦ 006* 

* A 2* 

* * 



***C 2* *********** 



***************** 



V 

***** 
♦017* 
* B3* 

* * 



***************** 



***** 
*018* 
* A2* 


f 


* * 


V 


* 


***** 
♦017* 

* B3* 




* * 



***************** 



*****D4**** ****** 
♦GENERATE FIRST * 



***************** 



**E<»******* 



*****F1********** 



***************** 



***G1 ************ 

* PLACE CODED * 
SEMICOLON 
* INTO BUFFER * 

***************** 



F2 *. 
* 

BEGIN 



***G 2 ************ 



***************** 



***** 

♦ Oil* 

* A3* 



F3 *. 

.* * 

■>*'. COMMENT 



*********** 



QUT2 V 

***F4************ 
PLACE INTO 
* BUFFER TEXT * 
BETWEEN « (' <— 
* AND NEXT •) • * 

OR •) ' 
***************** 



***** 
*005* 
* A1* 



***G3 ************ 

* PLACE CODED * 
THEN OR ELSE 
* INTO BUFFER * 

***************** 



QUT5 



**G5******* 



INCREMENT * 
1 )■ COUNTER * 



*********** 



*****H1 ********** 



*****H2* ********* 



*****H3 ********** 



**ft<******** 



DECREMENT 
■)■« COUNTER 



***************** 



***************** 



***************** 



*********** 



***** 

♦ 017* 

* B3* 



***J2 ****** ****** 

* PLACE CODED * 
BEGIN INTO 
* BUFFER * 

***************** 



V 

***** 

*017* 

* B3* 

* * 



*****K2 ********** 



***** 
*017* 
* B3* 

* * 



***************** 
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***** 

*017* 
* B3* 



Chart 017. SCAN Routine 



***** 

*017* 
* B3*- 



***D2**** ******** 

* PLACE * 

CHARACTER <— 

* INTO BUFFER * 

***************** 



***G2* *********** 



***H1 ************ 



H2 *. 
.* NEXT *. 
IES .* CHARACTER *. 
*.» LETTER OR .*<- 



* PLACE NEXT * 

* CHARACTER IN * 

* TCHAR * 

* * 
***************** 

i 
**** ! * 
*017* • 

* C3 *->• 



C3 *. 
LETTER 



**** ■ 
*017* » 
* D3 *->• 



D3 *. 

t: 

DIGIT 



V 
***** 

♦ 012* 

* A1* 



**** 

♦ 017* 

* E3 * 



E3 *. 
QDOTE 



***** 
*016* 
* A3* 



X 

V 

***** 

*008* 

* A1* 

* * 



G3 *. 

t! 

COHHA 



***G 4 ************ 



G5 *. 
.* NEXT *. 
.* CHARACTER *. NO 

->*. LETTER OR .* X 

*. DIGIT .* • 



***************** 



***H3 ************ 



*. .* 


V 


* IES 


***** 
♦009* 






* B2* 


1 ■» 


* * 


***** 


• 


♦022* 




* A1* 




* * 





***************** 



***************** 
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Chart 018. SPECIF Routine, Part 1 of 2 



***** 

*018* 

* A2* 

* * 



***A4 ************ 



.* IS *. NO 

->*.SPECIFICATOR .* 

*. •CODE' .* 



*****B 2* ********* 



***************** 



***C2 ****** ****** 



***************** 



*****D 2 ********** 

* * 

♦DECREMENT STACK* 

* * 

* * 
***************** 



***E2** ********** 



***************** 



*****G 1 ********** 

* * 

* * 
♦GENERATE COMMA *<- 

* * 

* * 
***************** 



.* IS *. NO 

♦.SPECIFICATOR .* 

♦.•STRING* .* 



*****E3 ********** 



***************** 



V 
.*• 



* YES 
■ **** 
" *017* 
X->* B3 * 



***************** 



*****B4********** 

* SEARCH FOR * 

* IDENTIFIER * 

* POSITION IN * 

* DICPRO * 

* * 
***************** 



.* IS *. YES 

*. SPECIFICATOR .* 

*. • VALUE* .* 



*****D4* ********* 

* * 

->* RESET TYPRO * 

* * 

* * 
***************** 



*****G 4* ********* 

* * 

-*ADD 64 TO TYPRO*<- 

* * 

* * 
***************** 



*****C 5* ********* 



***************** 



*****G 5 ********** 



***************** 



***************** 



***** 

♦017* 

* B3* 

* * 
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Chart 019. SPECIF Routine, Part 2 of 2 



***** 

*019* 
* A3* 



*****A1 ********** 

* * 

* SET TYPCAL = l»0*<- 

* * 

* * 
***************** 



A2 *. 

.* IS *. 

.♦DECLARATOR *. 

. 'PROCEDURE 1 . 



*****B2 ********** 

* UPDATE TYPCAL * 

* ACCORDING TO * 

* TYPE * 

* * 
***************** 



SPE1 
NO . 



» IS 

DECLARATOR 
f. 'ARRAY* . 



*****B3 ********** 



♦SET TYPCAL 



***************** 



***** 

♦ 017* 

* B3* 



***************** 



*****H1* ********* 



***************** 



*****C 2 ********** 

* SEARCH DICPRO * 
*FOR IDENTIFIER *<- 

* POSITION * 

* * 
***************** 



D2 *. 
TYPRO 



*****C 4 ********** 



*****C 5* ********* 



NO .* SECOND 
- — *. ALGOL 
*. KEYWORD 



♦ ♦♦♦*D3* ********* 



E2 *. 
YES .*" TYPCAL 



*****E1 ********** 

* SET TYPRO = * 
-* TYPCAL +216 *<- 

* * 

* * 
***************** 



V 

.*. 
*****F1********** F2 *. 

* ADD 6<t TO * NO .*" TYPCAL 

* TYPCAL *< *. = t 

* * *. . 

* * *. . * 
***************** *. .* 

« * YES 

i f 

■ .< 

i i 

x >• 

.*. 
♦****G1********** G2 *. 

* SET TYPRO = * NO . *" TYPCAL 
-* TYPCAL *< *. = 1 OR 8 



*. 



* ENTER 512 IN * 
-♦PROCEDURE TYPE * 

* ON DICEXT * 

* * 
***************** 



***************** 



Phase 10 35 



Chart 020. SWITCH Routine 



***** 

♦ 020* 

* A2* 



♦PUT IDENTIFIER 

* FOLLOWED BY ( 

* INTO BUFFER 



***************** 



*****B2********** 

* RESET COUNTER * 

* OF SWITCH * 

* ELEMENT LIST * 

* * 
***************** 



***** C2 ********** 



***************** 



* FUT NUMBER OF * 

* ERROR MESSAGE *<- 

* IN 6MES * 



SWT1 
NO . 



* DOES *. 

IDENTIFIER . *< — X 
c FOLLOW .* 



♦GENERATE ) LABEL* 
* /* * 



*****E2********** 



************< 



***************** 



******** 



**************** 



*****F2********** 

* INCREMENT * 

* COUNTER OF * 
♦SWITCH ELEMENT * 

* LIST * 

* * 
***************** 



.* IS *. YES« 

*. DELIMITER A .* X 

*. COMMA .* 



* GENERATE */ * 



***************** 



***** 

♦ 017* 

* B3* 
♦ ♦ 



SWT5 V 

*****H2****+***** 
♦PUT CONTENTS OF* 
♦SWITCH ELEMENT * 

♦ LIST INTO * 

♦ BUFFER ♦ 

♦ ♦ 
♦**♦♦**********♦♦ 



♦♦♦**J2********** 



********♦♦*♦♦♦**♦ 



***** 

♦ 017* 

* B3* 
* * 
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Chart 021. UNPOIN Routine 



***** 

*021* 
* B1* 



B2 *. 

.* 

•>** COLON 



***C1 ************ 

* PLACE CODED * 
PEEIOD INTO 
* BUFFER * 

***************** 



V 

***** 

♦017* 

* E3* 

* * 



***C2* *********** 
PLACE CODED 
* DOUBLE * 
CHARACTER 
* INTO BUFFER * 

***************** 



D2 *. 
.* *. 

SEMICOLON 



***B 3* *********** 

» PLACE CODED * 
■> COLON INTO 
* BUFFER * 

***************** 



♦ 017* 

* C3* 

* * 



*****D 3 ********** 



V 
***** 
*017* 
* B3* 

* * 



***************** 



*»***E3 ********** 
♦PVIRGU 015A2* 



***************** 



V 
***** 

♦ 017* 

* B3* 



Phase 10 37 



Chart 022. VNSPEC Routine 



***** 

♦ 022* 

* A1* 

* * 



VNSPEC 
YES .*' 



A1 *. 

* *. 

SEMICOLON 



***B1************ 



PLACE CODED * 

CHARACTER 
INTO BUFFER * 



***************** 



****+C1**** ****** 

* PLACE CODED * 
X — >*CHARACTER INTO * 

* BUFFER * 

* * 
***************** 



***** 
*017* 
* D3* 



*****D1**** ****** 



***************** 



***************** 



***** 
♦017* 
* D3* 
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PHASE 20 



Phase 20 searches in the dictionary created 
during Phase 10 to discover the type of the 
identifiers. This information is placed in 
the intermediate text, each identifier 
being followed by its description. The 
overall logic of this phase is illustrated 
in Chart 023. 



The input to Phase 20 consists of: 

• The dictionary, on SYSUT2 

• The intermediate text produced by Phase 
10, on SYSUT1 

Phase 20 cannot transfer its input 
directly from SYSUT2 to the dictionary 
because of temporary limitations in the 
PL/I compiler. DICEXT and DICPRO are buf- 
fers between the dictionary (DICT) in main 
storage and SYSUT2. The parts of the dic- 
tionary corresponding to DICEXT and DICPRO 
are also known as DICEXT and DICPRO in this 
section. For further details, see Appendix 
A. 



on SYSUT1 (after the intermediate text) 
when the buffer is full. 

The output from Phase 20 is an interme- 
diate text, which is placed on SYSUT1. 

On completion of this phase, control 
returns to the Control Phase of the 
program. 



PHASE 20 ROUTINES 



This section contains detailed descriptions 
of the routines used by Phase 20. Ihe 
organization is the same as that of the 
section "Processing Routines" in Phase 10. 



BEGPRO 



Chart 0^4 



When an identifier is not found in the 
dictionary and is followed by a left paren- 
thesis, the search continues by checking 
for the presence of standard function and 
input/output procedure names. 

A procedure identifier which occurs as 
left-part variable is replaced by the iden- 
tifier SRTURN. 

When a formal parameter specified by 
•ARRAY 1 appears in an expression, Phase 20 
calculates the number of array dimensions 
appearing in this expression. The number 
of dimensions found is entered in the dic- 
tionary (DICT) to complete the description 
of the formal parameter. If this parameter 
recurs with a varying number of dimensions, 
a flag is placed in the relevant dictionary 
entry. A similar method is used to calcul- 
ate the number of parameters of a formal 
procedure. (See Appendix A for further 
details. ) 

At the end of each procedure, the sec- 
tion of the dictionary corresponding to the 
procedure is rewritten on SYSUT2 if the 
description of a formal parameter has been 
modified using the method described above. 

When an array or a procedure (including 
standard functions and input/output proce- 
dures) is used as an actual parameter, a 
description of the actual parameter is 
entered in Table PCT. The latter is placed 



Purpose: To detect the presence of a 
block, and to update tne dictionary. 

Called_by: Phase 20. 

EE.2.cess inc[: The next block section or the 
dictionary has already been stored in 
DICEXT, and IRNEXT contains the internal 
reference number of the line opening the 
block. Detects block if the key of the 
current line (CURKEY) is equal to TRNFXT. 
In the latter case, the contents of DICEXT 
are added to DICT and the various pointers 
are updated. If the block found is not the 
last in the program, the nsxt section of 
the dictionary is read from SYSUT2 and 
entered in DICEXT. BE~PF.O checks with 
BLIDIC, which indicates the total number of 
blocks, to see if the current block is thc- 
last one. 



Routine called: 



None. 



Exit 



PDCPP.O 



SDCID. 



Chart 2^ 



Purpose: To analyze the type of the proce- 
dure declaration and, if necessary, to add 
the relevant section to the dictionary. 



Called_by_: Phase 20. 
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Processing: Finds the procedure identifier 
in DICT and adds its description to the 
line in area PRDESC of the output buffer. 
If the procedure declaration is not the 
first of the program, adds to the line in 
the output buffer the internal reference 
number of the previous declaration. If the 
procedure contains parameters, reads the 
list of parameters, together with their 
description, from DICPRO. Counter NBPRO, 
initialized to and incremented by 1 at 
each occurrence of a procedure declaration 
containing parameters, provides the appro- 
priate dictionary section number. If the 
procedure body is other than "CODE", rou- 
tine PDCPRO enters the contents of DICPRO 
in DICT and updates the various pointers. 
NBPRO is saved. 



Routine called: 



Exit: WRTLIN. 



None. 



PENPRO 



Chart 026 



Purpose: To process the ends of the proce- 
dures that contain parameters. 

Called_by: Phase 20. 

Processing.: SDCID has previously modified 
the description of the formal parameters 
specified by 'ARRAY' and 'PROCEDURE' in the 
procedure declaration. 

Routine PENPRO then rewrites the corres- 
ponding section of the dictionary on 
SYSUT2, using as a key the procedure number 
previously saved during the processing of 
the procedure declaration. 



Routine called: 



Exit: BKLEND. 



None. 



SDCID 



Charts 027.028,029,030 



Purpose: To search for identifiers in the 
dictionary and to analyze procedure 
statements. 

Called_by.: Phase 20. 

P.£oc;essinc[: Scans each line word by word. 

Whenever it finds an identifier: 

1. If this identifier is followed by a 
colon (except in array declarations) , 
it is a label. 



2. If the identifier appears in the 
diet iona ry : 

a. If it is a procedure identifier 
present in the left part of an 
assignment statement, it is 
replaced by $RTURN. 

b. A new entry is placed in the stack 
if any of the following types of 
identifier are found: 

• Formal parameter specified by 
•ARRAY' and followed by a left 
bracket. 

• Formal parameter specified by 
•PROCEDURE" and followed by a 
left parenthesis. 

• Procedure identifier followed 
by a left parenthesis; the 
procedure having a formal 
parameter specified by 'ARRAY' 
or 'PROCEDURE' . 

c. If an array or procedure identifi- 
er appears as an actual parameter, 
the information concerning this 
identifier (i.e., number of dimen- 
sions, section number, address, 
etc.) is entered in the stack. 
(See Table PCT in Appendix A for 
further details.) 

3. If the identifier was not found in the 
diet iona ry : 

a. If the delimiter following it is a 
left parenthesis, the identifier 
must be the name of a standard 
function or of an input/output 
procedure . 

b. In all other :ases, the identifier 
is a label or an ALGOL function 
name used as an actual parameter. 

Whenever it finds a delimiter: 

The processing is the same as for a deli- 
miter following an identifier, i.e.: 

1. If the stack is not empty, checks the 
delimiters, as follows: 

a. If the delimiter is a left bracket 
or a left parenthesis, updates 
bracket and parenthesis counter. 

b. If it is a comma, calculates the 
number of dimensions for a formal 
array, or the number of parameters 
for a procedure. 

c. A right bracket or a right paren- 
thesis indicates the end of a pro- 
cedure statement, function desig- 



U0 



nator, or subscript listi Routine 
SDCID then checks the last entry 
in the stack and enters in the 
dictionary the information 
required to complete the descrip- 
tion of the corresponding formal 
parameter. This entry is copied 
into Table PCT. (See Appendix A 
for further details.) 



2. If the stack is empty, takes no 
action. 



E2H£iQ.e_£al 1 e d : None, 



Exit: WRTLIN, 
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Chart 023. Overall logic of Phase 20 



****A2 ********* 

* ENTRY FROM * 

* CONTROL PHASE *- 

* * 
*************** 



***************** 



*READ NEXT LINE * 

* * 

* * 
***************** 



****B4 ********* 
¥ RETURN TO * 
CONTROL PHASE * 
f * 

*************** 



.♦END OF *. 
.* ARRAY * 
X *. DECLARATION 



CLASS *. 
NOT 
.SPECIFIED.* 



***************** 



*023* 
* C5* 
***** 



*****E2 ********** 

* * 

* RESTORE LAST * 
X * SECTION OF * 

* DICTIONARY * 

* * 
***************** 



♦PROCESS 'BEGIN 1 * 
* * 

***************** 



***************** 



BEGINNING *. 
OF ARRAY 
. DECL .* 



* REMOVE LAST * 

* DICTIONARY *< 

* SECTION * 

* * 
***************** 



***************** 



****K3********* 

* RETURN TO * 

* CONTROL PHASE * 

* * 
*************** 



>* PROCESS *- 

* PROCEDURE * 

* DECLARATION * 
***************** 
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Chart 02^. BEGPRO Routine 



****A2 ********* 
K ENTRY FROM * 
K PHASE 20 4 
» * 

*************** 



V 

.*. 

B2 *". 



*****C1********** 

* INDICATE * 

* COHPOUND * 

* STATEMENT * 

* * 
***************** 



V 
***** 

♦ 027* 

* A2* 



***************** 



**D2******* 



*********** 



X 

V 
***** 
*027* 
* A2* 

* * 



*****F2* ********* 

* ENTER NEXT * 

* BLOCK SECTION * 

* IN DICEXT * 

* * 
***************** 



***** 
*027* 
* A2* 
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Chart 025. PDCPRO Routine 



****A 2* ******** 
k ENTRY FROH 4 
k PHASE 20 4 
k 4 

*************** 



*****B2********** 

*SEAHCH DICT FOB* 

* PROCEDURE * 

* IDENTIFIER * 

* * 
***************** 



*****C2* ********* 

* * 

♦DESCRIPTION IN * 

* CURRENT LINE * 

* * 
***************** 



D2 *. 
.* FIRST *. 
k PROCEDURE 4 
DECLARATION 



*****E 2* ********* 

* CHAIN WITH * 

* PREVIOUS * 

* DECLARATION * 

* * 
***************** 



*****F 2* ********* 

* * 

X — >* SAVE CURKEY * 

* * 

* * 
***************** 



*****G1********** 

* READ SECTION * 

* INTO DICPRO *<- 

* * 

* * 
***************** 



NO .* PROCEDURE *. 

*. WITH NO 

*. PARAM .* 



***************** 



♦UPDATE POINTERS* 

* AND SAVE *- 

* SECTION NO * 

* * 
******** ********* 



****K 2* ******** 

* RETURN TO * 
->*CALLING ROUTINE* 

* * 
*************** 
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Chart 026. PENPRO Routine 



****A 1********>- 
* ENTRY FROM 4 
K PHASE 20 * 

¥ * 

*************** 



.* SECTION 
. HAS BEEN 
*. MODIFIED 



*****C1 ********** 

* COPY SECTION * 
♦FROM DICT INTO * 

* DICPEO * 

* * 
***************** 



*****D1 ********** 

* * 

* CALCULATE KEY * 

* * 

* * 
***************** 



*****E1 ********** 



♦REWRITE DICPRO * 
* ON SYS0T2 * 



***************** 



****F1*** ****** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 027. SDCID Routine, Part 1 of 4 



***** 

♦ 027* 

* A2* 

* * 



SDCID V 

♦♦***A2**^******* 

* GET CURRENT * 

* CHARACTER AND * 

* INCREMENT * 

* POINTER * 

* * 
if**************** 



CURRENT 
CHAR. A 
LETTER 



*****C2********** 

* COLLECT * 

* CHARACTERS OF * 
♦IDENTIFIER AND * 

* FOLLOWING * 

* DELIMITER * 
***************** 



B3 *. 
.* IS *. 
CURRENT *. 
CHAR. A 

.DELIMITER.* 

*. . * 

*. .* 



***** 
*028* 
* D3* 



*027* 


■ 


* BK* 


V 


***** 


***** 




♦023* 




* C5* 



D1 *. 

.* INDI- *. 

.♦CATOR ARRAY*. 

, DECLARA- .*<- 

*. TION .* 



***** 

♦ 028* 

* A3* 



. * DELIHETER *. 

, NOT (. STACK .*<- 

*. EMPTY .* 

*. . * 

*. .* 

* YES 



, *IDENTIFIER 
. FOUND IN 
*. DICT 



SDCIDA2 V 

*****G1 ********** 

* COMPARE * 

* IDENTIFIER * 
- — >* AGAINST * 

♦RESERVED WORDS * 

* * 
***************** 



*****H1* ********* 



***************** 



***** 

♦ 028* 

* D3* 



G3 *. 

. * IS *. 

DELIMITER 

LEFT 

. BRACKET . 



*****GH ********** 

♦ARRAY AS ACTUAL* 
->* PARAMETER IN * 

♦ STACK * 

* * 
***************** 



***** 
*028* 
* G3* 



IS 

DELIMITER 


*. 


NO 
* X 


.* 
*. 


FORMAL 

PARAMETER 


* 


NO 


X 


: = 


* 


1 


* 




* 




V 


*. .* 
*. . * 
* YES 

« 




V 

♦ ♦*** 

♦ 030* 

♦ A2* 
* * 




♦ . .* 
*. .* 
* YES 

4 






***** 
*028* 
* D3* 

* * 

* 



NO .* 

X *. RESEHVED 

*. WORD 



*****J2********** 

* REPLACE * 

* IDENTIFIER BY * 

* SRTURN IN * 

* INTERMEDIATE * 

* TEXT * 
***************** 



*****J3********** 

* NEW ENTRY IN * 

* STACK WITH * 

* ARRAYP * 

* * 
***************** 



***♦ ■ 
'SDCIDA3 V 

*****K1 ********** 

* INSERT ^ 

♦DESCRIPTION IN S 

. INTERMEDIATE *- 

TEXT FOR * 

IDENTIFIER * 

, ************** 
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Chart 028. SDCID Routine, Part 2 of 4 



***** 

•028* 
* A3* 



♦****A1 ********** 

* INDICATE I/O * 

* PROCEDURE IN *< 

* THE LINE i 

* * 
***************** 



***** 

♦ 027* 

* B4* 



DELIMITEB . *<- 
. IS ( .* 



, ^IDENTIFIER *. NO 

IS AN I/O •* 

*. NAME .* 



.♦IDENTIFIER *• N 
->*.IS A STANDARD. *- 
♦.FUNCTION .* 
♦.NAME .* 



C2 



-*. DELIMITER 
♦.IS ) OR ,. 



V 
♦♦♦** 
*027* 
* Bt* 



DELIMITER 
. IS ( 



CURRENT 
ENTRY IS 
. ARBAYP 



E1 *. 

.♦COUNTER*. 
NO . *OF BRACKETS*. 
X *. PARENTHESES =. 



*****F1* ********* 

* I/O NAME OR * 
♦STANDARD FUNCT ♦ 
♦USED AS ACTUAL * 
♦PARAM IN STACK ♦ 

♦ * 
********♦♦♦♦****♦ 



****»B«*** ******* 

* * 

* ERROR ♦ 
♦IDENTIFIER NOT *<- 

* FOUND * 

* * 
♦**♦♦♦♦**♦♦***♦♦♦ 



****C t** ******* 

♦ RETURN TO ♦ 

♦ CONTROL PHASE * 

♦ ♦ 
♦♦♦♦**♦♦♦♦***♦♦ 



**** " 

*028* • 
* D3 *->• 



— X 

V 

***** 

*027* 

♦ K1* 

* * 



DELIMITER 

OR LEFT 

. BRACKET . 



♦****E4 ♦♦****♦♦** 

* +1 TO COUNTER * 
->♦ OF BRACKETS * 

* PARENTHESES * 

* * 
***************** 



V 
*♦♦♦* 
*027* 
* K1* 



*028* 
♦ G3* 



♦ *** ■ 
♦028* « 

♦ H3 ♦->» 



.♦DELIMITER I *. 
. OR RIGHT 
*. BRACKET .* 



GH ♦. 

.♦COUNTER*. 
» BRACKET - * 

PARENTHESES 
*. =1 .* 



♦ *♦** 
*027* 

* K1* 



DELIMITER 
, IS ( . 



*****G 5* ********* 

* * 

* +1 TO COUNTER * 
->* OF DIMENSIONS * 

* PARAMETERS * 

* * 
***************** 



*♦♦*♦ 
*027* 
* K1* 



****♦ 
*027* 
* K1* 



♦♦♦**J 3* **♦♦♦**** 

* * 

* -1 TO COUNTER * 

* OF BRACKETS * 

* PARENTHESES * 

* * 
***************** 



K3 *. 

.♦COUNTER*. 

.*OF BRACKETS*. 

*.PARENTHESES=0. 


YES 


X 


*. 


* 




V 


*. .* 
♦ . .♦ 
* NO 






***** 

♦ 029* 

* A3* 


V 






* ♦ 

♦ 


***** 
*027* 
* K1* 








* * 
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Chart 029. SDCID Routine, Part 3 of 4 



***** 

♦0 29* 

* A3* 



CURRENT 
ENTRY IS 
. PROCM 



*****B1********** 

* FLAG FORMAL * 
♦PARAMETER INTO *<- 

* DICT * 

* * 
***************** 



.♦DESCRIPTION*. 
. HAS BEEN 
♦.COMPLETED.* 



*****C3 ********** 
♦INSERT COUNTER * 

* OF DIMENSIONS ♦ 

♦ (OR PARAMETERS) ♦ 

♦ INTO DICT FO ♦ 

* PARAM ♦ 
***************** 



*****D 3 ********** 

♦ INDICATE * 

♦ CORRESPONDING * 

♦ SECTION IS * 

♦ MODIFIED * 

♦ * 
***************** 



CURRENT 

ENTRY IS 

EMPTY 



* COPY CONTENTS * 

* OF CURRENT *< — X 

♦ ENTRY IN PCT * 

♦ ♦ 
***♦♦♦♦♦****♦**** 



♦REMOVE CURRENT ♦ 

* ENTRY FROM * 

* STACK * 

* * 
***************** 



♦ ♦♦*♦ 

♦ 027* 

♦ K1* 



*****J3 ********** 

* * 

* RESTORE * 

* COUNTERS AND * 

* POINTERS * 

* * 
***************** 



***** 
*027* 
* K1* 
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Chart 030. SDCID Routine, Part 4 of 4 



***** 

♦030* 
* A2* 



DELIMITER 
. IS ( 



V 
***** 

♦ 027* 

* K1* 



A 

FOBflAL 
. PARAMATEB. 



. DELIMITER 
*.IS ) OK ,. 



V 
***** 
*028* 
* H3* 



C3 *. 
. *PR0CED *. 
.♦WITH FOBMAL*. NO 

♦.PROCEDURE' OB .* X 

*. 'ARBAY' .* • 

♦ .PABAM. * ' 



YES 



***** 
*027* 
* K1* 



* CUBBENT *. 


YES * 


•ENTBY IS 


* X * 


*. ARRAY P .* 


• * 


*. . * 


• * 


*. .* 


V * 


* NO 


*♦♦♦♦ 


• 


♦ 02 8* 


• 


* H3* 


• 


* * 


f 


* 


V 




. *. 




E2 *. 




.♦COUNTER*. 




♦OF BRACKETS* 


NO 


PARENTHESIS =. 


* X 


♦ . 1 .♦ 


V 


♦ . .♦ 


***♦♦ 


♦ . .* 


♦ 028* 


* YES 


♦ H3* 



*****D3 *♦♦******* 

NEW ENTBY IN * 

STACK WITH * 

PROCM * 

* 
***************** 



♦ ♦♦** 

♦ 027* 

♦ K1* 



*****C4 ********** 

* NEW ENTRY IN * 

* STACK WITH * 

* PBOCP * 

* * 

***************** 



V 
***** 
*027* 
* K1* 



.♦IDENTIFIER « 
, IS A FOBMAL 
♦.PARAMETER. X 



♦****G1 ********** 

* * 
♦PROCP AS ACTUAL* 

* PARAMETER IN * 

* STACK * 

* * 
***************** 



*****G 2* ********* 

*PBOCM AS ACTUAL* 

* PARAMETER IN * 

* STACK * 

* * 
***************** 



***** 
*028* 
* G3* 



***** 
♦028* 
* G3* 
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PHASES 25 AND 30 



Both Phases 25 and 30 are optional; they 
are called only if certain conditions are 
present in the program. 



PHASE 25 



The input to Phase 25 consists of Table PCT 
on SYSUT1 and the dictionary on SYSUT2. 
During the initialization of Phase 25, 
Table PCT is taken from SYSUT1 and placed 
in main storage. Phase 25 completes the 
description of formal parameters specified 
by 'ARRAY' or 'PROCEDURE'. It is called if 
both of the following conditions are 
present: 

1. The program contains procedures. 

2. One of these procedures contains form- 
al parameters specified by 'ARRAY' or 
•PROCEDURE' (i.e., Table PCT is not 
empty) . 

In the case of formal parameters speci- 
fied by 'ARRAY', the number of dimensions 
is determined by examining the correspond- 
ing actual parameter. 



To process formal parameters 
by 'PROCEDURE', correspondence 
established between each formal 
and the procedure declaration o 
parameter. A check is then mad 
(a) that procedure names passed 
cedure in place of the correspo 
parameter have the same number 
ters, and (b) that the latter a 
same type and have the same val 



specified 
is first 

pa ra me te r 
f the actual 
e to ensure 

to the pro- 
nding formal 
of parame- 
re of the 
ue-part. 



The information obtained is entered in 
the relevant section of the dictionary 
which is rewritten on SYSUT2. 

When Table PCT has been processed, con- 
trol returns to the Control Phase of ths 
program. 

The overall logic of Phase 25 is illus- 
trated in Charts 031 and 032. 



dure declaration is present in the ALGOL 
program. (Procedure declarations were 
chained during Phase 20, thus avoiding the 
necessity of scanning the whole of the 
intermediate text.) 

The following sequence of PL/I state- 
ments is generally used in the conversion 
of ALGOL procedure headings: 

1. Declaration of entry-name with the 
attribute ENTRY 

2. PROCEDURE statement 

3. Declaration of formal parameters 

4. Comment (value-part) 



To generate stat 
the section of the 
to this procedure d 
cedure is used as a 
able (SRTURN) is cr 
same data attribute 
tifier. When a pro 
"precompiled" proce 
of the ALGOL langua 
is not generated. 



ement 1, Phase 30 uses 
dictionary corresponding 
eclaration. If the pro- 
function, a dummy vari- 
eated, which has the 
s as the procedure iden- 
cedure declaration is a 
dure (see Section 5.4.6. 
ge manual) , statement 1 



Statements 2 and 4 are generated in 
Phase 10. If the procedure body consists 
of the delimiter 'CODE', statement 2 is 
deleted and statement 4 is not generated. 

Formal parameters are declared by using 
the section of the dictionary which served 
to generate statement 1 above. The 
declaration of formal parameters declared 
by 'PROCEDURE' is performed by using the 
information entered in the dictionary by 
Phase 25. 

The effect of the value part is simu- 
lated by statement 1 and by the conversion 
of actual parameters in Phase 40. 

The output from Phase 30 is an interme- 
diate text which is placed on SYSUT1. 

When all procedure 3 ec la rations have 
been converted, control returns to the Con- 
trol Phase of the program. 



PHASE 30 



PHASE 30 ROUTINES 



Phase 30, the input to which consists of 
the intermediate text on SYSUT1 and the 
dictionary on SYSUT2, converts procedure 
headings. This phase is called if a proce- 



Phase 30 consists of a main routine, PRPRO, 
which calls on two other routines, PALGEN 
and RTNGEN, to perform certain functions. 
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These three routines are described in 
detail below. 

Phase 30, in addition, uses two utility 
routines: 

GENR, which places various program items in 
the output buffer and thence on 
SYSUT1 when the buffer is full. 

GENID, which does the same for identifiers. 



PRPRO 



Charts 033,034 



Purpose: According to the kind and to the 
number of parameters in the procedure 
declaration, to generate the various state- 
ments used to convert this declaration. 

£alled_bjr: Control Phase. 

ProC-^ssinc^: Reads the procedure declara- 
tion and finds the description of the pro- 
cedure. If this procedure contains parame- 
ters, the relevant section of the dic- 
tionary is entered in DICPRO. If the pro- 
cedure is not an external (precompiled) 
one, calls routines PALGEN and RTNGEN in 
succession. The end of the PL/I PROCEDURE 
statement generated by Phase 10 is deter- 
mined by the first semicolon encountered. 
The various statements generated are 
chained using NXIRN, which contains the 
identification number of the next buffer. 
(See "BUFFER" in Appendix A.) These state- 
ments are placed on SYSUT1 immediately 
after the intermediate text placed there by 
Phase 10, If the procedure body is the 
symbol 'CODE.', the PROCEDURE statement is 
deleted. In the case where the procedure 
has a type, routine PRPRO generates an 
auxiliary variable ($RTURN) to contain the 
value given in the ALGOL program to the 
procedure identifier. 

The parameters are grouped according to 
their specification, as follows: 

1. Specified by "LABEL* 

2. Specified by "REAL", 'INTEGER', or 
•BOOLEAN' 

3. Specified by 'STRING' 

4. Specified by 'SWITCH* 

5. Specified by 'ARRAY' 

6. Specified by 'PROCEDURE' 

Routine PRPRO then generates the corres- 
ponding declaration using, in the case of 
•ARRAY' and • PROCEDURE 1 ," the information 
supplied by Phases 25 and 30. In the case 



of 'PROCEDURE' in particular, routine PRPRO 
reads the section of the dictionary corres- 
ponding to the actual parameter. Routines 
PALGEN and RTNGEN are called to generate 
the parameter-attribute-list. 

When all the parameter specifications have 
been generated, the preceding procedure 
declaration is examine!. If all declara- 
tions are found to have been processed, 
control returns to Phase 30. 

l.P.utines_ca lied : GENID, GENR, PALGEN, 

RTNGEN. 

Exit: Control Phase. 



PALGEN 



Chart 035 



Purp_ose: To generate the parameter- 
attribute-list corresponding to a declara- 
tion with the ENTRY attribute. 

Called_ by : PRPO. 

Process in 3 : Examines the specifications of 
the formal parameters and generates an 
attribute when it finds any one of the 
following: 

• 'REAL* procedure 

• 'REAL' array or 'INTEGER' array called 
by value 

• Type procedure called by value 

• Arithmetic variable ('REAL' or 
•INTEGER') 

In all other cases the attribute corres- 
ponding to the parameter is empty. 

R.2iii.ilies_ca. lied : GENR, GENID. 

Exit: Calling routine. 



RTNGEN 



Chart 036 



Purp_ose : To generate the RETURNS attribute 
when a function is encountered. 

C a 1 1 e d_b y : PRPRO. 

Processing: Checks the procedure identifi- 
er for type; if a type is present generates 
RETURNS followed by the corresponding data 
attribute. 

Rj>u± in e_c ailed : GENR. 

Exit: Calling routine. 
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Chart 031. Overall Logic of Phase 25, Part 1 of 2 



+***A1********+ 
* ENTRY FROM * 
H CONTROL PHASE 4 
» 4 

*************** 



***************** 



PROCEDURE 
FORMAL 

.PARAMETER. 



*****C2********** 
♦GET DESCRIPTION* 
♦OF FORMAL PARAH+ 

♦ IN DICTIONARY ♦ 

♦ SECTION ♦ 

♦ ♦ 
***************** 



♦ SUPPRESS * 
->* CURRENT ENTRY * 

♦ IN PCT * 

♦ * 
***************** 



♦DESCRIPTION*. NO 

CONTAINS A .* 

*. SECTION .* 
*. NBR .* 



RDSCT V 

*****F2 ********** 
♦READ DICTIONARY* 

* SECTION * 

* CORRESPONDING * 

* TO PROC IDENT * 

* * 
***************** 



RCOPY V 

*****F3* ♦♦****♦** 
♦RECOPY CURRENT * 

* ENTRY OF PCT * 

* FOR FURTHER * 

* ANALYSIS ♦ 

* * 
***************** 



*♦♦* 


• 


♦ 031 


* * 


* G2 


♦ ->« 


* 


* * 


**♦♦ 


V 




. ♦. 




G2 ♦ 




♦END OF 


.* 


ACTUAL 


*. 


PARAM 


♦ . 


LIST 



LAST 

ENTRY IN 

PCT 



PCTPRA3 V 

*****H2********** 

* USING ACTUAL * 

* PARAM LOCATE * 
*FOR,MAL PARAM IN + 

♦ DICT SECTION ♦ 

♦ ♦ 
******♦♦♦*♦♦***** 



J2 *. 
.♦FORMAL ♦. 
NO .+ PARAMETER ♦. 
< — ♦. * ARRAY* OR . 
♦. "PROCED" .♦ 





H« *. 








H5 *. 




* SOME * 








• ♦ ♦. 


♦ 


ENTRIES 


♦ . 


YES 




* WERE 




WERE 






- — >♦ 


ALL ENTRIES 


* 


RECOPIED 


♦ 






*. RECOPIED . 



****J5****+*++* 

♦ RETURN TO ♦ 

♦ CONTROL PHASE ♦ 

♦ ♦ 
♦*♦♦*********** 



FORMAL 
PARAM HAS 
. FLAG 



***** 

♦ 032* 

♦ A2* 
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Chart 032. Overall Logic of Phase 25, Part 2 of 2 



***** 

*032* 
* A2* 



A2 *. 
.* ACTUAL *. 
.♦PARAS IS A 
.. FORMAL 
*. PABAM . 



*****A3 ********** 

*READ DICTIONARY* 
>* SECTION OF *- 

* ACTUAL PARAM * 

* * 
***************** 



***** 
*031* 
* G2* 



K ACTUAL * 
PARAM IS AN 
► . • ARRAY" .« 



* ACTUAL » 

PARAM IS AN 
■►.I/O PROC .1 



*****D2* ********* 
♦READ DICTIONARY* 

* SECTION * 

* DESCRIBING *<- 

* ACTUAL PA8AM * 

* * 
***************** 



.♦FORMAL *. 
.* PARAMETER *. NO 

*.DESC CONTAINS.* 

4. SECTION . * 
*. NBR .* 



*****C3*** ******* 

* SET FLAG INTO * 
->*DESCRIPTION OF * 

* FORMAL PARAM * 

* * 
***************** 



***** 
*031* 
* G2* 



. *. 

D« *. 

.♦ACTUAL *. 

, * PARAMETER *. 

.DESC CONTAINS.. 

*. SECTION .♦ 

*. NBR .* 

♦ . .* 

NO 



YES 



F2 *. 
.* SAME *. 
.♦SECTION IN 
. ACTUAL AND 
♦. FORMAL . 
*. PARAM.* 
♦ . . ♦ 
NO 



*****G2********** 

* COMPARE TWO * 

* SECTIONS * 

* DESCRIBING * 

* PARAMETERS ♦ 

* * 
♦♦********♦**♦♦** 



1 
***** 
*031* 
* G2* 



♦♦♦♦*E 3 *♦♦*♦♦♦*♦♦ 

♦ COMPLETE * 
♦DESCRIPTION OF ♦ 

->♦ FORMAL * 

♦ PARAMETER ♦ 

♦ * 
♦**♦♦♦********♦♦♦ 



♦ ♦*** 

♦ 031* 

♦ G2* 



YES 



♦ **** 
*031* 

* G2* 



#****G3********** 

* COMPLETE ♦ 
♦DESCRIPTION OF * 

* ACTUAL * 

* PARAMETER * 

* * 
♦***♦**♦♦♦******* 



V 
*♦♦♦♦ 

♦ 031* 

* G2* 



PCTPRC2 .*. 

Ft *. 

.♦FORMAL *. 

.♦ PARAMETER *. 

. DESC CONTAINS.* 

♦. SECTION .* 

♦. NBR .♦ 

♦ . .* 

NO 



♦ ♦♦**G !)♦♦♦♦***♦*♦ 



♦♦♦♦♦♦♦♦♦♦*****♦* 



****♦ 
♦0 31* 
* G2* 



PCTPRD2 V 

* ***♦!( 1 ♦♦******** 

* COMPLETE * 
♦DESCRIPTION OF * 

* FORMAL *<- 

* PARAMETER * 

* * 
*********♦♦♦♦♦*♦* 



♦♦♦**J3********** 

♦ INSERT NUMBER * 

♦ OF DIMENSIONS * 

♦ IN ACTUAL *<- 

♦ PARAMETER ♦ 

♦ ♦ 
♦♦♦♦***♦♦***♦♦*♦♦ 



♦ ♦♦♦* 
♦031* 

* G2* 



NO 



J« *. 

.♦NUMBER ♦. 

. * OF *. 

•DIMENSIONS IN.*<- 

*. FORMAL .♦ 

♦.PARAM.* 



«D1 .♦. 

JS *. 

.♦NUMBER *. 

, ♦ OF ♦. 

.DIMENSIONS IN.* 

*. ACTUAL .* 

♦. PARAM.* 

"yes 



***** 

♦ 031* 

* G2* 



Phases 25 ana 30 53 



Chart 033. PRPRO Routine, Part 1 of 2 



****A1 ********* 
« ENTRY FROM * 
. CONTROL PHASE * 
» * 

*************** 



***A 2* *********** 

* 
< — 



* READ FIRST 
-> LINE OF 
* DECLARATION 

***************** 



, * PROCEDURE 
. WITH PARA- 
*. METERS . 



CONV2 

*****B3 ********** 

* READ * 

* CORRESPONDING * 
--- >* SECTION INTO * 

* DICPRO * 

* * 
***************** 



PRE *. 
COMPILED 
. PROCEDURE.* 



INCT1 V 

*****D2* ********* 

* GENERATE * 

* DECLARE * 

* FOLLOWED BY * 
♦IDENTIFIER AND * 

* ENTRY * 
***************** 



, * PROCEDURE 
, WITH PARA- 
*. METERS . 



->* GENERATE * 
* PARAMETER * 
♦ATTRIBUTE LIST * 
***************** 



*****F2 ********** 
♦RTNGEN 036A1* 

* GENERATE * 

* RETURNS * 

* ATTRIBUTE * 
***************** 



.* PROCEDURE *. 

BODY IS 

*. CODE .* 



***************** 



► **J1 ************ 



END OF 

PROCEDURE 

■DECLARAT . 



FOTJNDEA . *. 



PROCEDURE 

BODY IS 

CODE 



***************** 



***** 

♦ 033* 

* Jit* 



EPROC1 V 

*****J 4* ********* 



***************** 



EPROC .*. 

J5 *. 
. * LAST * 

.♦"procedure"*. NO 

>*. DECLARATION .* X 



*****K2 ********** 



***************** 



K3 *. 

.*PROCED *. 

.* WITHOUT *. 

. PARAM (NOT . 

♦ .FUNCTION). * 



****K5* ******** 

* RETURN TO * 

* CONTROL PHASE * 

* * 
*************** 



***** 
*034* 
* A3* 



***** 
*034* 
* El* 



54 



Chart 034. PRPRO Routine, Part 2 of 2 



***** 

*034* 
* A3* 



***** A3 ********** 

* GENERATE * 

* DECLARE * 



***************** 



***** 

♦ 034* 

* El* 
* * 



*****E1 ********** 
* * 

♦GENERATE COMMA *- 



*****D2 ********** 



***************** 



***** 
*033* 
* J4* 



END OF 
PARAMETER 
. LIST 



♦****G1 ********** 



***************** 



***** 
*033* 
* J4* 



LABSPC 

*****F2 ********** 

* GENERATE * 

* PARAMETERS * 
* FOLLOWED BY *< 

* LABEL * 

* * 
***************** 



* GENERATE * 

< *PARAMETERS HITH*<- 

♦DATA ATTRIBUTES* 

* * 
***************** 



STRSPC 

*****H 2* ********* 

* GENERATE * 

* PARAMETERS * 
* FOLLOWED BY *<- 

* CHARACTER (*) * 



***************** 



SHTSPC 

♦****J 2 ********** 

* GENERATE * 

* PARAMETERS * 
*FOIX0HED BY <*)*<- 



LABEL 



***************** 



ARRSPC 

*****K2********** 

* GENERATE * 

PARAMETERS, 



* rnnnncix aaom * 

*DI«ENSIONS AND *<- 

A *DATA ATTRIBUTES* 

• * * 

* ***************** 



*****C3*** ******* 

♦GENERATE $RTURN* 

* DATA AND DATA * 

* ATTRIBUTES * 

* * 
***************** 



YES a* FUNCTION *. 

*, WITHOUT PARA-. 

*. METERS .* 



GATHER V 

*****E3********** 

* GROUP * 

* PARAMETERS * 
- — >* ACCORDING TO *< — X 

* SPECIFICATION * 

* * 
***************** 



PROSPC 

*****K4 ********** 
*PALGEN 035A2* 



>* GENERATE *- 
* PARAMETER * 
♦ATTRIBUTE LIST * 
***************** 



•>* GENERATE * 

* RETURNS * 

* ATTRIBUTE * 

***************** 
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Chart 035. PALGEN Routine. 



****A2* ******** 
K ENTRY FROM * 
N PRPRO 4 

I * 

*************** 



*****B 2** ******** 



* GENERATE ( 



***************** 



PALGA1 V 

*****C2 ********** 

* GET PARAMETER * 

* NAME FROM * 

* CORRESPONDING * 

* SECTION * 

* * 
***************** 



*****D3 ********** 

* * 

->*GENERATE ENTRY * X 

* * 

* * 
***************** 



E2 *. 
.* REAL *. 
.* ARRAY OR *. YES 

♦.INTEGER ARRAY.* 

*. BY VALUE .* 

*. .* 

*. .* 



.* BOOLEAN 
. PROCEDURE 
*.BY VALUE . 



.* ARITH *. 
.* VARIABLE *. K 
.AND PROCEDURE. *- 
*.BY VALUE .* 



***************** 



********* 



******** 



*****H1* ********* 

* * 

♦GENERATE COMMA *<- 

* * 

* * 
***************** 



END OF 
PARAMETER 
. LIST 



*****J2********** 



* GENERATE ) 



***************** 



****K2********* 

* RETURN TO * 

* CALLING ROUTINE* 

* * 
*************** 
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Chart 036. RTNGEN Routine 



< ENTRY FBOH 4 
K PRPRO * 

< » 
*************** 



B1 *. 
i * 4 

FUHCTION 



NO 



*****C1 ********** 



GENERATE 
RETURNS ( 



***************** 



*****D1 ********** 

* GENERATE DATA * 

* ATTRIBUTE * 

* ACCORDING TO * 

* FUNCTION TYPE * 

* * 
***************** 



*****E1 ********** 

* * 

* GENERATE ) * 

* * 

* * 
***************** 



****F1* ******** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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phase ao 



Phase UO (see Chart 037) generates the PL/I 
target program. The input to this phase is 
the intermediate text on SYSUT1, together 
with the dictionary on SYSUT2 if the ALGOL 
program contains procedures (see Phases 25 
and 30) . 



Output from Phase 40, i.e., the target 
program, is in the form specified by the 
user in his EXEC control card. 

On completion of Phase 40, control 
returns for the last time to the Return 
Procedure of the Control Phase. 



After the initialization of phase para- 
meters, and when processing a main program, 
Phase 40 generates a PROCEDURE statement 
with the label MAINPRO. 

Executable statements and partially con- 
verted declarations (array declarations, 
for example) are converted by various 
statement processing routines. 

Routine EXPRO is called as reguired by 
the statement processing routines, to pro- 
cess arithmetic and boolean expressions. 

Phase 40 has to check the type of an 
arithmetic expression when any of the fol- 
lowing are present: 

• Assignment statements with left-part 
variable of type 'INTEGER' 

• Subscript expressions 

• Actual parameters with corresponding 
formal parameters specified by 'INTEG- 
ER' and called by value 

If the arithmetic expression is of type 
•REAL', the built-in function FLOOR is used 
to simulate the rounding in ALGOL. Paren- 
theses are inserted where necessary, 
because of differences between ALGOL and 
PL/I as to the relative priorities of cer- 
tain operators. Simulation of the ALGOL 
operators 'EQUIV', 'IMPL', and ' /• requires 
sophisticated scanning by EXPRO of the 
expression, using a stack and the relative 
priorities of the operators. 

Conversion of input/output procedures 
depends on the kind and type of the actual 
parameters. If a statement cannot be con- 
verted, or if conversion is doubtful, the 
relevant line in the output listing is 
identified by a number (see Appendix F of 
the ALGOL-to-PL/I language conversion 
manual) . 

If the source program is found to con- 
tain a conditional expression, the func- 
tions $C0NAEX and/or SCONBEX are generated 
at the end of the converted program. 



PMSE_40_RgUTINES 

The routines used by Phase 40 fall into 
three categories: 

• Statement processing routines 

• Expression processing routine (EXPRO) 

• Utility routines 

The first two categories are described 
in detail and illustrated by flowcharts, as 
in previous sections of the manual; the 
utility routines are described more 
summarily. 



STATEMENT PROCESSING ROUTINES 



ARPRO 



Chart 038 



Purpose: To process array declarations. 

Called_by_: Phase 40. 

P^ocessin^: Phase 10 has already converted 
the part of each array declaration which 
does not need a dictionary reference. 
Calls routine EXPRO to convert the bound- 
pair-list, each bound being of type 'INTEG- 
ER'. Using a left bracket, an entry is 
placed in the stack. The end of a bound- 
pair-list is detected when a jright bracket 
deletes this entry. 

The converted lines are transmitted, 
without modification, to the output buffer. 
A semicolon found in a converted line indi- 
cates the end of an array declaration. 

E2.utines_called: EXPRO, PRTLIN. 

Exit: Calling routine. 
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ASPRO 



Chart 039 



• Left parenthesis: ignores it. 



Purpose: To process assignment statements. 



Called_by.: Phase 4 0. 

E£2£essinc[: Begins by processing the left- 
part variable. If it is a subscripted 
variable, calls routine EXPRO to convert 
the corresponding expression, which must be 
of type 'INTEGER 1 . Using the left bracket, 
an entry is made in the stack. 

Then processes the right-hand part of the 
statement. The symbol := is used to place 
an entry in the stack. The type of the 
expression is obtained from the type of the 
left-part variable. 

Routine s_cal led: EXPRO, GEN 40, PUTID. 

Exit: Calling routine. 



• 'IF' clause: calls IFPRO to process 
it. 

• Label: converts it. 

• Switch identifier: calls EXPRO to con- 
vert the subscript expression. 

A designational expression that cannot be 
converted is scanned to determine the end 
of the statement, and a warning message is 
issued. 



Pou tin es_cal 1 ed : EXPRO, IFPRO, PUTID, 
GEN40. 



Exit: Callina routine. 



IFPRO 



Chart 042 



FORPFO 



Chart 040 



Purpose: To process ALGOL 'FOR' 
statements. 

Called_bi: Phase 40. 

Processing^: Converts the controlled vari- 
able and examines the for-list, giving the 
type of the controlled variable to routine 
EXPRO. 

In the case of STEP-UNTIL element, issuas a 
warning message if the expression following 
•STEP' or 'UNTIL' contains variables. 

In the case of the WHILE element, issues a 
warning message if the expression preceding 
'WHILE' contains variables. The expression 
following 'WHILE' is always of typa 
•BOOLEAN'. 

Souti ne _c al 1 e d : GEN40, PUTID. 

lxi£ : Calling routine. 



Purpose: To process 'IF' clauses in desia- 
national expressions and 'IF' statements. 



Called_by: Phase 40, GOTOPRO. 

Processing : Generates IF in the output 
buffer. Calls EXPRO to process the boolean 
expression following 'IF*. The correspond- 
ing 'THEN' ends the expression. If the 
count of 'IF's is zero, the 'IF' clause is 
not a part of a designational expression 
and IFPRO returns control to Phase 40. 
Otherwise control returns to GOTOPRO. 

Eou tines_ called : EXPRO, GEN 40, PUTID. 

Exit: Calling routine 



I0PR0 



Chart 43 



Purpose: To process input/output 
statements . 



GOTOPRO 



Chart 041 



Purpose: To process 'GO TO' statements. 

Called_by_: Phase 40. 

Processing: 'GOTO* is followed either by a 
left parenthesis, an 'IF' clause, a label, 
or a switch identifier. GOTOPRO converts 
these as follows: 



Cal 1 ed_by_ : Phase 40. 

Processings The internal reference number 
of the input/output procedure appears in 
PRDESC, in the input buffer; it is used as 
a pointer to the various sequences of 
instructions that process the input/output 
statements . 

The correspondence between the ALGOL data- 
set- number and the PL/I file-name is given 
as follows: 
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— SYSIN 

1 — SYSPRNT 

2 — ALGLDD02 

3 — ALGLDD03 



15 — ALGLDD15 



The DD name is used as the file-name in the 
PL/I target program. If the data-set- 
number is not an integer constant, it is 
not converted. 

The dummy variables used to convert the 
input/output procedures are declared at the 
end of the converted program, if necessary. 

If the data-set was created by another pro- 
gram, or if it stands as the system input 
data-set, it is the user's responsibility 
to verify that the data items are in accor- 
dance with the PL/I specifications. 

The SYSACT control procedure is converted 
only in certain cases. (For further 
details on this point, refer to Appendix C 
of the ALGOL-to-PL/I language conversion 
manuals ) 

E2Htines_ called: EX PRO, GETWORD. 

I2?li : Calling routine. 



PRPRO Chart_04 4 

Purpose: To process procedure statements. 

Called_by: Phase 40. 

Processing. : First, generates CALL state- 
ment followed by the procedure identifier. 
If the procedure contains parameters, calls 
routine EXPRO (entered at entry-point 
EXPE0L3) to process the parameter list. 
The end of the parameter list is identified 
by a right parenthesis of level 0. 

£outines_called: EXPRO, GEN40 PUTID. 

Exit: Calling routine. 



EXPRESSION PROCESSING ROUTINE 



EXPPO 



Charts 045,046,047.048,049 



Purpose: To analyze the expressions 
appearing in the various ALGOL statements 
and to convert the argument list of func- 
tion designators or of procedure 
statements. 



Called^. by. : All Phase 40 routines, 



El2£§ssinc[: When the type of the expres- 
sion is already known, it is transmitted 
directly to routine EXPRO. This is so, for 
example, in the case of subscript expres- 
sions, right part of an assignment state- 
ment, etc. 



Stack 

Routine EXPRO uses a stack to determine the 
structure of the expression. The prece- 
dence of operators and of delimiters is the 
following : 



1 


** 


2 


«/• / * 


3 


+ 


4 


= < > <= T= > = 


5 


T 


6 


& 


7 


I 


8 


« IMPL' 


9 


■EQUIV 


10 


ELSE* 


11 


THEN* 


12 


<t 'IF* ( (* r 




•THEN' 'ELSE' 'WHILE' 




•STEP' 'UNTIL 




:)],:=; 


Certain items appear only in the stack 



ELSE* denotes the delimiter 'ELSE' in a 

conditional expression: the top item 
in the stack is 'IF'. 

THEN* denotes the delimiter 'THEN' in a 

conditional expression: the top item 
in the stack is 'IF'. 

(* indicates the beginning of an para- 
meter list. 

t indicates the beginning of an 

expression. 

A new level is created in the stack for the 
following items: 



•IF' 



( (* [ 
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Conversion_Actions 

1. Ex2onent_p_art_ If the separator • 

follows a digit, it is converted to E 
and if not, to 1E. 

2 • Transf er_f r om_lRE ALl_,to,lIN TEGEB j.i 

Except for boolean expressions in 'IF' 
clauses, the components of arithmetic 
expressions must be of type 'REAL' or 
•INTEGER'. An arithmetic expression 
is of type 'REAL' if it contains any 
of the following items: 

• Variable of type 'REAL' 

• The operator / 

• One of the delimiters * or . 

• The operator ** when the exponent 
is not an unsigned integer 

3- Conditional_ex£ressions2 According to 
the rules of ALGOL syntax, the form of 
a conditional expression is: 

•IF' B 'THEN' X1 'ELSE' X2 

where: B is a boolean expression 

X1 is a simple expression 

X2 is an expression 

The name created by the LCP, which 
simulates a conditional expression, 
depends on the type of expressions X1 
and X2. Expression X1 is of type 
'BOOLEAN' if it contains any of the 
following items, except in 'IF' 
clauses: 

• Variable of boolean type 

• Logical values 

• Relational operators 

• Logical operators 

4. Log.ical_op_erator j. Parentheses are 
inserted to eliminate the differences 
in priorities. 

5 . Op_er at o r s__I M PL.Lx._LE 0. UI Vl_ _____/__ 

These operators are simulated by PL/I 
operators, parentheses, and built-in 
functions. If the second operand of 
the operator / (the divisor) is of 
type 'INTEGER', it is converted to 

(1 EO *di visor) which has a floating 
point value. 

6. __lti£le_assi_nment_: The last entry 
in the stack and the current delimiter 



are := and := respectively. The first 
assignment operator is converted into 
a comma . 

7. Actual_parameter_lis_i The descrip- 
tions of formal parameters correspond- 
ing to the procedure identifier are 
obtained from sections, of which the 
numbers have been determined in Phase 
25 if the procedure identifier is a 
formal parameter. Specifications are 
used for the conversion of actual 
parameters. Calls by value are simu- 
lated by inserting parentheses, or 
sometimes by using the built-in func- 
tion FLOOR* 



GETWORD, PUTID. 



COPYIA, EXPEN, GEN40, 



Exit : Calling routine. 



UTILITY ROUTINES 



COPYIA -- fills the output buffer, mixing 
together the characters in the 
intermediate area and the charac- 
ters in the auxiliary table. 
Each character in the stack and 
each character in the auxiliary 
table has a pointer associated 
with it. These pointers give the 
order in which the characters 
will be mixed. 

The following example shows how 
COPYIA works during the transla- 
tion of the ALGOL statement: 

A : =B+C**2**I; 

The LCP must add parentheses to 
the translated statement to make 
sure that it is evaluated in the 
same way. The translated PL./I 
statement in the output buffer 
is : 

A=B+ (C**2) **I; 

The text in the intermediate 
area, the contents of the stack, 
and the auxiliary table are illu- 
strated below. Beneath each 
character in the intermediate 
area appears the value of the 
pointer when pointing to it. 

I_t6El_di_te_Area 

B+C**2) **I 
123456789... 
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Stack 



AuxiIi£Lrj£_Table 



PUTID — generates an identifier, which is 
placed either: 




I ( I 2 | 
k 4 ^ 



The left parenthesis in the auxi- 
liary table must be added to the 
characters in the intermediate 
area. Its value of 2 shows that 
it must be added after the + 
sign, which has value 2 in the 
intermediate area. 



EXPEN — examines a converted expression 

in the intermediate area. If the 
type of the expression has been 
modified, i.e., if the evaluation 
of an expression gives a result 
of type 'REAL 1 and if this value 
is to be given to an integer 
variable, the transfer involves 
rounding in ALGOL, but not in 
PL/I; it is simulated by the PL/I 
built-in function FLOOR. 

Places the seguence +.5) in the 
intermediate area, and adds the 
sequence FLOOR ( to the output 
text. 

GEN40 — generates an item in the output 
buffer . 



• In the output buffer if 
ISW1 = 

• In the intermediate area if 
ISW1 =1 

GETWORD - checks the next character, and 

1. It_is_convertedj_ enters the 
converted part in the inter- 
mediate area, checks next 
character, etc. 

2 • It _is_not_con verted^ 

a. If it is a digit, sets 
the digit indicator and 
recopies the digit in 
the intermediate area; 
then checks next 
character, etc. 

b. If the next character is 
a letter, recognizes it 
as an identifier. 

GETWORD has two exits: through 
one, it transmits the delimiter 
and the value of the digit indi- 
cator; through the other, it 
transmits the identifier, togeth- 
er with its description. 

PRTLIN — prints a line when full, output 
being as specified by the user 
(option DECK or NODECK) . 
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Chart 037. Overall Logic of Phase 40 



****A1 ********* 

* ENTRY FROM * 

* CONTROL PHASE *- 

* * 

*************** 



**,***A2 ********** 

♦INITIALIZATION * 
->* ACCORDING TO * 

* OPTIONS * 

* * 
***************** 



* ffRITE LINE * 

X *(POSSIBLI WITH *<- 

♦ERROR MESSAGE) * 

* * 
***************** 



***************** 



*****E1 ********** 



***************** 



****F1********* 

* RETURN TO * 

* CONTROL PHASE * 

* * 
*************** 



♦READ NEXT LINE * 

* * 

* * 
***************** 



D2 *. 
.* CLASS •*. 
K IS ARRAY * 
DECLARATION 



K LAST * 

LINE OF THE 
k. PROGRAM .* 



LABPRO .*. 

F2 *. 
.* NEXT *. 
.♦WORD IS AN *. NO 
X — >*. IDENTIFIER .* 



*. 



*****H2********** 



***************** 



***************** 



***************** 



--♦PROCESS 'GO T.O«*<- 
* STATEMENT * 



***************** 



*****E <*********** 
♦GENERATE BEGIN * 
*OR DO ACCORDING* 

* THE CLASS OF *<- 

* THE LINE * 



YES .* DELIMITER *. 

*. IS 'GO 

*. TO' .* 



***************** 



X- 



***************** 



H3 *. *****H4********** 

.* *. *PRPRO«0 044A1* 

.* PROCEDURE *. YES * * 

. IDENTIFIER .* >* PROCESS *- 

*. .* * PROCEDURE * 

*. .* * STATEMENT * 

*• •* ***************** 
* NO 
m 
l 

X x 

V 
*****J4********** 
♦ASPRO 039A1* 

* ASSIGNMENT *- 

* STATEMENT * 

* * 
***************** 



**#**F 5**** ****** 



***************** 



*****H5* ********* 

* * 

* * 
♦GENERATE 'ELSE'* 

* * 

* * 
***************** 



*****K5 ********** 



***************** 



V 
***** 
*041* 
* B1* 
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Chart 038. ARPRO Routine 



****A1********* 
* ENTRY FROH * 
k PHASE 40 * 
k 4 

*************** 



*****B1* ********* 

* * 

* PUT IN OUTPUT * 

* BUFFER THE * 

* FIRST LINE * 

* * 
***************** 



*READ NEXT LINE * 



***************** 



***************** 



*****E1********** 

* ENTHY LEFT * 

* BRACKET IN * 
♦STACK FOR BOUND* 

* PAIR LIST * 

* * 
***************** 



*****F2* ********* 



***************** 



***************** 



****G 2* ******** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 039. A SPRO Routine 



****A1* ******** 
X ENTRY FROM A 

* PHASE 40 * 

* 1 
*************** 



*****B1********** 

*PUT IDENTIFIER * 

* IN OUTPUT * 

* BUFFER * 

* * 
***************** 



NO .* DELIMITER *. 

X *. IS LEFT 

*. BRACKET .* 



*****D1* ********* 

* * 

* GENERATE ( * 

* * 

* * 



*PROC SUBSCR EXP* 
♦WITH ENTRY LEFT* 
* BRACKET * 
***************** 



*****F1* ********* 

* * 

* GENERATE ) * 

* * 

* * 
***************** 



*****G1 ********** 



ASPR01 V 

*****H1* ********* 
*EXPRO 045A3* 



***************** 



****J1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 040. FORPRO Routine 



****A2********* 
k ENTRY PROM * 
X PHASE 40 * 
* * 

*************** 



***** A3 ********** 



GENERATE DO * 



***************** 



*****B3* ********* 



***************** 



*****C1 ********** 

* * 

* GENERATE ( *<- 

* * 

***************** 



♦PHOC SDBSCR EXP* 
♦KITH ENTRY LEFT* 
* BRACKET * 
***************** 



*****E1*** ******* 



* GENERATE ( 



***************** 



*****F1*** ******* 



C3 *. 
.* NEXT *. 
YES ,* DELIMITER ♦ . 

*. IS LEFT 

*. BRACKET .* 



***************** 



PRB3 

*****G 1 ********** 
♦WARNING MESSAGE* 

* IF EXPRESSION * 

* PROCESSED NOT *<- 

* CONSTANT * 

* * 
***************** 



*****D3********** 

* * 

* GENERATE » * 

* * 

* * 
***************** 

**** • 

* * < 

* E3 *->• 

* * • 
**** * 

PRA1 V 

*****E3********** 
*EXPRO 045A3* 

* PROCESS * 

* EXPRESSION * 

* ENTRY * 
***************** 



. ♦ . 
F3 *. 

.♦"delimiter"*. 

k. IS 

*. 'HHILE' .* 



NO 



YES .* DELIMITER *. 

*. IS 

*. "UNTIL 1 .♦ 



*****F4********** 
♦WARNING MESSAGE* 

♦ IF EXPRESSION * 
->* PROCESSED NOT * 

♦ CONSTANT * 

♦ * 
***************** 



*****S4 ********** 



GENERATE BY 
WHILE ( 



********♦*♦♦****♦ 



*****H1* ********* 



♦ GENERATE TO * 



***************** 



* PROCESS * 

* EXPRESSION ♦ 

* ENTRY ♦ 
***************** 



*****K 1 ********** 
•WARNING MESSAGE* 

♦ IF EXPRESSION * 

♦ PROCESSED NOT * 

♦ CONSTANT ♦ 

♦ ♦ 
***************** 



♦****H2 ********** 

♦ ♦ 

♦ GENERATE BY *<- 

♦ * 

♦ ♦ 
***************** 

* **** 

• * ♦ 
X->* E3 * 

* * 
**** 

*****J2********** 



* GENERATE ♦< 

* * 

* * 
***************** 

' ♦*♦♦ 
* * * 

X->* E3 * 

♦ ♦ 
♦ *** 



PRB2 
YES . 



****K3*****+*++ 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 



♦PROCESS BOOLEAN* 

♦ EXPRESSION * 

* ENTRY ♦ 
♦♦♦♦♦♦*********♦♦ 



♦♦♦♦♦J !(♦♦♦♦****** 



-♦ GENERATE ) 
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Chart 041. GOTOPRO Routine 



****A1********* 

* ENTRY FROM * 
PHASE 40 <• 

* 4 
*************** 



**** • 

♦041* * 
* B1 *->■ 



B1 *. 
.*IS NEXT*. 
. * WORD AN 
*. IDENTIFIER 



*****C1 ********** 



***************** 



.* IS *. 
* DELIMITER *. NO 

LEFT .* X 

*. BRACKET .* 



*****E1* ********* 



* GENERATE ( 



***************** 



*PROC SUBSCR EXP* 
*WITH ENTRY LEFT* 
* BRACKET * 

***************** 



*****G 1 ********** 



* GENERATE ) 



***************** 



*****H1 ********** 



***************** 



.* IS *. YES 
->*. DELIMITER ( .* 



*****C2 ********** 



***************** 



*****D2* ********* 
*IFPRO 042A1* 



***************** 



YES .* IS 

*. DELIMITER ) 



****K1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 042, IFPRO Routine 



****A1* ******** 

* ENTRY FROM * 

* PHASE «0 OR * 
K GOTOPRO * 

*************** 



*****B1**** ****** 

* 4 

* GENERATE IF * 



******** 



********* 



*****C1 ********** 

* INDICATE THAT * 

* TYPE OF * 

* EXPRESSION IS * 

* BOOLEAN * 

* * 
***************** 



* PROCESS * 

* EXPRESSION * 

* ENTRY * 
***************** 



* GENERATE THEN * 



***************** 



F1 
.* 

•IF 1 
COUNT 



***** 
*0«1* 
* B1* 



****G1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 
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Chart 043. IOPRO Routine 



****A1********* 
» ENTRY FEOH * 

K PHASE 10 A 

* 4 

*************** 



*****A 2* ********* 

* SAVE I/O * 
♦PROCEDURE NAME * 

WITH * 

DESCRIPTION * 

* * 
***************** 



->* 



*****B 2 ********** 



***************** 



*****C1 ********** 
♦SAVE STATEMENT * 

* NUMBER AND * 
♦WARNING MESSAGE*<- 

* NUMBER * 

* * 
***************** 



*****D1********** 

* * 

* GENERATE / * * 

* * 

* * 
***************** 



*****D2* ********* 

♦COLLECT DIGITS * 
*AND SET POINTER* 

* AFTER COMMA * 

* * 
***************** 



*****E1 ********** 

* COPY MESSAGE * 
♦•ALGOL ITEM NOT* 

* CONVERTED 1 * 

* * 
***************** 



♦♦♦♦*E2 ********** 



***************** 



*****F1*******^«* 

* ♦ 

* GENERATE * / * 

* * 

* * 
***************** 



'<- 



*****G1********** 



***************** 



****H1********* 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
**♦♦♦*****♦♦♦♦* 



♦PROCESS SYSACT * 

X * CONTROL ♦ 

* PROCEDURE * 



***************** 



***************** 



♦**♦♦♦♦********** 



***************** 



*****K 2* ***♦♦♦*** 



***************** 



.* OTHER *. 
YES .♦ INPUT 
*. PROCEDURES 



* NO 

i 

-X 
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Chart 044. PRPRO Routine 



****A1********* 
t ENTRY F8CH * 
t PHASE 40 * 

k * 

*************** 



*****B1 ********** 

* * 

* * 

* GENERATE CALL * 

* * 

* * 
***************** 



*****C1* ********* 

+ PUT IDENTIFIER * 

* IN OUTPUT * 

* BUFFER * 

* * 
***************** 



. DELIMITER 
*. IS ( 



****D2********* 

* RETURN TO * 
->*CALLING ROUTINE* 

* * 
*************** 



*****E1********** 



***************** 



***** 

*0«9* 

* B3* 

* * 
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Chart 045. EXPRO Routine, Part 1 of 5 



***** 

*045* 
* A3* 



* INITIALIZE * 
♦STACK ACCORDING* 

* TO ENTRY TYPE * 

* * 
***************** 

**** ' 
*045* * 

* B3 *->• 



B3 *. 
.* NEXT *. 
. *WOED IS AN 
K. IDENTIFIER 



*****C1********** 



***************** 



*****E1 ********** 



***************** 



*****F1* ********* 



***************** 



*****C2********** 



EXPROQ1 

*****D 2* ********* 

* GENERATE $ * 

* CONAEX 7 IN * 

* INTERMEDIATE *< 

* AREA * 

* * 
***************** 



***** 
*0«5* 
* J1* 



*****J1**** ****** 

♦PLACE DELIMITER* 

X * IN STACK WITH * 

* PRIORITY * 



*****K1********** 

* GENERATE * 

* DELIMITER IN * 

* INTERMEDIATE *<- 

* AREA * 

* ■» * 
***************** 



***** 
*045* 
4 J2* 



EXPROC1 .*. 

J2 *. 
.* DELIM *. 
NO .* CREATES * 

*. ENTRY IN AUX 

*. TABLE .* 



*****K2********** 



***************** 



:ES .* DELIMITER *. 
• — *.IS A LOGICAL . 
*. VALUE .* 



DELIMITER 
. IS ( 



**** 

V 
*****H3 ********** 
♦MODIFY TYPE OF * 

* EXPRESSION * 

* ACCORDING TO * 

* OPERATOR * 

* * 
***************** 



* J3 *->■ 



***** 
*045* 
* C4* 



X >* 

i 

EXPROK1 V 

*****Ct********** 
♦MODIFY TYPE OF ♦ 

♦ EXPRESSION ♦ 

♦ ACCORDING TO ♦ 
♦IDENTIFIER TYPE* 

♦ ♦ 
***************** 



Dt *. 
•*IT IS A*. 
.* STANDARD 
. FUNCTION 
*. NAME 



J3 



*. 



*****E4********** 

♦PUT IDENTIFIER ♦ 
♦IN INTERMEDIATE* 

♦ AREA ♦ 

* * 
***************** 



DELIMITER 

IS LEFT 

. BRACKET . 



DELIMITER 
, IS ( . 



***** 
*049* 
* A3* 



.♦PRIOR- 
,* ITY LST *. YES 

.STACK ELEM < .* 

*. PRIOR . * 
♦.DELIM.* 
*. .* 
* NO 



K3 *. 
.♦PRIOR- *. 
YES .* ITY LST * 

*. STACK ELEM > 

*. PRIOR .* 
♦.DELIM.* 
*. .* 
* NO 



*****J4********** 

* GENERATE ) IN * 

* INTERMEDIATE *<- 

* AREA * 

* * 
*******♦♦♦♦****** 



EXPROB1 .*. 

K4 *. 
.* LAST *. 
.* STACKED 
— >*. ELEMENT IS 
*. ELSE * 
*. .* 
*. . 4 



*****B 5**** ****** 

* CREATE ENTRY * 

* STANDARD * 

* FUNCTION IN * — 
♦STACK WITH REAL* 

* TYPE ♦ 
***************** 



*****C 5**** ****** 

* * 

* GENERATE ( * 

* * 

* * 
***************** 



*****D5 ********** 
♦PUT EQUIVALENT * 

* FUNCTION NAME * 
->*IN INTERMEDIATE* 

4 AREA ♦ 

♦ ♦ 
♦♦♦♦************* 



***** 
*045* 
* F5* 



*****F5* ********* 

* GENERATE ( IN * 
■>* INTERMEDIATE * 

* AREA * 

* ♦ 
***************** 



*****G5********** 



***************** 



*****H5* ********* 

* CREATE ENTRY * 
*LEFT BRACKET IN* 

* STACK WITH * X 

* INTEGER TYPE * 

* * 
***************** 



*****J5********** 



***************** 



*****K5* ********* 



***************** 



V 
***** 
*047* 
* A3* 



***** 
.♦046* 
* A2* 
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Chart 046. EXPEO Routine, Part 2 of 5 



***** 

• 016* 

* A2* 



A2 *. 
.* LAST *. 
* STACKED 
ELEMENT IS 





B2 *. 


, 


♦IS LAST*. 


. * 


STACKED 


*. 


ELEMEHT 


*. 


•EQUIV" . 




*. . * 




*. .* 




* NO 


**** 




*0«6 


* ' 


* C2 


*->■ 


* 


* « 


**** 


V 


EXPRODd 


. *. 




C2 *. 




*IS LAST*. 


.* 


STACKED 


*. 


ELEMEHT 


*. 


•IHPL" 



D2 *. 

. *IS LAST*. 

STACKED 

ELEMENT 

V 



.* IS LAST *. 

STACKED 

♦ .ELEMENT /.* 



*****F 2* ********* 



♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 



G2 



IS 



♦ . DELIMITER / . *- 
♦ . . ♦ 

♦ . .♦ 
♦ . .♦ 

YES 



*****H2********** 



***************** 



*****G3 ********** 

* GENERATE ) IN * 
->* INTERMEDIATE * 

* AREA * 

* * 
*******♦♦♦♦****♦♦ 



• ♦♦♦♦J 1 ********** 

* * 

* DELETE LAST * 

* ELEMENT OF *< 

♦ STACK ♦ 

♦ ♦ 
***************** 



*♦♦♦* 

♦ 015* 

* B3* 



***** 

♦ 015* 

* J3* 
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Chart 047. EXPRO Routine, Part 3 of 5 



***** 

♦ 047* 

* A3* 



.♦ LAST *• 
* STACKED 
ELEMENT IS 



***************** 



*****A 5 ********** 

* * 
♦GENERATE ) * * * 

->*IN INTERMEDIATE* 

* AREA * 

* * 
** ********* ***?»** 



*****C1 ********** 



B3 *. 




*****B4********** 


B5 *. 


.* LAST *. 




* GENERATE 


* 


.* NEXT *. 


STACKED 


*. YES 


* DELIMITER IN 


* 


.♦WORD IS AN *. YES 


ELEMENT IS 




--->* INTERMEDIATE 


* 


*. INTEGER NOT .* X 


• •EQUIV . 


* 


* AREA 


* 


*. SIGNED .* ■ 


*. . * 






* 


*. .* ' 


*. .* 




***************** 


*. .* V 


* NO 




i 

V 

***** 




• NO ***** 

• *0«5* 

• * A3* 

• * * 

• * 


\T 




*015* 






. *. 




* J 2* 




V 


C3 *. 




* * 




♦♦♦♦*C5^ ♦♦♦♦♦♦♦** 


.* LAST *. 




* 




♦ * 


STACKED 


*. 






♦MODIFY TYPE OF * 


ELEMENT IS 


. * 






* EXPRESSION * 



***************** 



*****D1 ********** 

* COPY * 

* INTERMEDIATE * 
♦AREA IN OUTPUT * 

* BUFFER ♦ 

* * 
********♦♦*♦♦♦*** 



***** 

♦ 045* 

♦ A3* 



****F1 *****♦♦♦♦ 

* RETURN TO * 
♦CALLING ROUTINE+<- 

♦ ♦ 
*************** 



*****G1 ********** 



***************** 



♦♦♦♦♦H1 ********** 

* DELETE LAST * 

* ELEMENT OF * 

* STACK * 

* * 
***♦♦********♦♦♦♦ 



*****J1********** 

* GENERATE ) IN * 

* INTERMEDIATE * 

* AREA * 

* * 
***************** 



***** 
+ 045* 
* A3* 



*****D 2* ♦♦*♦♦♦♦** 



**♦♦*♦♦♦♦*******♦ 



*****E2********** 



♦♦♦*♦*♦♦********♦ 



♦♦♦♦♦F2+++++++*** 

♦ COPY ♦ 

♦ INTERMEDIATE ♦ 
-♦AREA IN OUTPUT ♦<- 

♦ BUFFER ♦ 

♦ ♦ 
***************** 



• *IS LAST*. 
« STACKED *. 

ELEMENT STD .*<- 
♦ .FUNCTION .* 



D3 *. 

.* LAST *. 
.* STACKED 
*. ELEMENT IS 
♦.SEMICOLON. 



DELIMITER 
. IS ) 



H3 *. 
.* LAST *. 
K STACKED 
ELEMENT IS 

k. 'IF« 



*.. 



. * 



« *046* 
X->* C2 * 
* * 
**** 

*****J 3* **♦♦***** 
♦DETERMINE TYPE ♦ 

♦ OF EXPRESSION * 

♦ USING STACKED ♦<- 

♦ TYPE ♦ 

♦ * 
***************** 



*****K3 ****♦♦♦+♦♦ 



FIRST *. 
STACK .*<- 
ELEMENT .* 



DELIMITER *. 
RIGHT .1 
. BRACKET .♦ 



♦ **** 

♦ 045* 

♦ A3+ 



♦♦♦♦♦HI ♦♦*****♦♦♦ 

, YES ♦ GENERATE , IN * 
.* >* INTERMEDIATE * 

* AREA * 

♦ ♦ 
***♦♦♦♦♦*******♦♦ 



♦♦♦♦******♦****** 

' **♦♦ 
■ *045 + 
X->+ A3 ♦ 

♦ ♦ 

♦ ♦♦♦ 
. *. 

D5 *. 

.♦IS LAST + . 

.* STACKED ♦. IS 

>♦. ELEMENT LEFT .♦- 

♦. BRACKET .♦ 



♦♦♦♦♦E5++++++++++ 



♦♦♦♦♦♦*♦****♦**** 



G5 *. 


.♦ LAST ♦. 


STACKED ♦. 


ELEMENT IS . 


(/ •* 


♦ . . * 


♦ . .♦ 


♦ YES 


' *♦** 


• *048* 


X->* F3 



**♦♦ 

♦♦♦♦♦H5+ ♦♦♦♦♦*♦♦* 
♦REPLACE SCONAEX* 

♦ BY CONBEX IN * 

* INTERMEDIATE * X 

* AREA * 

♦ * 
♦♦♦♦*♦*♦*♦♦*♦♦♦♦♦ 



■ YES 

. ♦. 

J5 *. 

•*TYPE OF*. 

.♦EXPRESSION *. 

->*. IS 

♦. BOOLEAN .♦ 



♦♦♦**K5 ********♦♦ 



♦****#**♦♦♦♦♦♦♦♦♦ 



***************** 



***** 

♦ 045* 

* J1* 



*♦♦♦♦ 

♦ 045* 

♦ J1* 

♦ ♦ 
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Chart 048. EXPRO Routine, Part 1 of 5 



***** 

*048* 
* A3.* 



***** A3 ********** 

* GENERATE * 

* DELIMITER IN * 

* INTERMEDIATE * 

* AREA * 

* * 
***************** 



DELIMITER *. 
RIGHT 
. BRACKET .* 



***** 
*045* 
* A3* 



*****C3 ********** 

* DELETE LEFT * 

* BRACKET FROM * 

* STACK AND * 
♦RESTORE STACKED* 

* TYPE * 
***************** 



.* LAST *. 
t STACKED 

ELEMENT IS 
Y. (* 



V 
***** 

♦ 045* 

* A3* 



*****F 2* ********* 

* GENERATE * 

* ELEMENT FOR * 

* SIMULATE CALL *< 

* BY VALUE * 

* * 
***************** 



.* NEXT *. 


NO 




*. DELIMITER . 


* 


X 


*.IS , OR ).* 




V 


*. . * 




***** 


*. . * 




*045* 


* YES 




* H3* 


**** * 




* * 


*048* • 




* 


* F3 *->■ 






* * ' 






**** V 






. *. 






F3 *. 






.♦ACTUAL *. 






YES .* PARAMETER *. 






*. SPECIFIED BY . 


* 




*. 'VALUE 1 .* 







*****GJ* ********* 

* WARNING HESSAGE* 

* IF ACTUAL * 
♦PARAMETER IS AN* 

* EXPRESSION * 

* * 
***************** 

**** ' 

*048* * 

* H3 *->■ 

* * * 
**** * 

EXPROP1 V 

*****H3********** 

* PUT DELIMITER * 
— >*IN INTERMEDIATE* 

* AREA * 

* * 
***************** 



*****J1 ********** 

* * 

* RESTORE WITH * 

* STACKED *< 

* INFORMATION * 

* * 
***************** 



NO .* FIRST 
— *. ELEMENT OF 
*. STACK . 



*****Jt********** 

* COPY * 

* INTERMEDIATE * 
->*AREA IN OUTPUT * 

* BU FF-ER * 

* * 
***************** 



****J 5* ******** 

* RETURN TO * 
♦CALLING ROUTINE* 

* * 
*************** 



****+K1 ********** 



***** 
*0K9* 
* E3* 



K4 *. 

, * *. 

DELIMITER 



*****K5 ********** 



***************** 



***************** 



V 
***** 
*0t5* 
* A3* 
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***** 

*049* 

* E3* 



Chart 049. EXPRO Routine, Part 5 of 5 



*0i»9* 
* A3* 



«****A3********** 

* * 

* SAVE * 
♦INFORMATION IN * 

* STACK * 

* * 
***************** 



**** 
*0U9* 
* B3 *-> 



**** 
EXPR0L3 V 

*****B3********** 

* READ * 

* CORRESPONDING * 

* DICTIONARY * 

* SECTION FROM * 

* SYSUT1 * 
***************** 



*****C1 ********** 



***************** 



*****D1 ********** 

•GENERATE ALGOL * 

* ITEM NOT * 

* CONVERTED * 

* * 
***************** 



V 
***** 
*0<t8* 
* H3* 



NO .*DESCRIPTION*. 
*. CONTAINS .*<- 

*. SECTION .* 
*. NBR .* 



*****D2********** 



***************** 



V 

***** 
*0<»8* 
* H3* 



YES .*IDENTIFIER *. 

*. IS A FORMAL . 

♦.PARAMETER.* 



***************** 
i 

**** • 
*0«9* ■ 
* E3 *->• 



E3 *. 

.* TYPE *. 
> SPECIF- * 

ICATION FOR 
K. PARAM .* 



***************** 



NEXT 


*. YES 


HORD IS A 


.* X 


DELIMITER. 


* • 


*. . * 




*. .* 


V 


* NO 






*0H5* 


• 


* A3* 



YES .* NEXT *. 

a. WORD IS A . 

*. DELIMITER. * 



NEXT 
DELIMITER 
.IS , OR ) . 



***** 
*045* 
* C4* 



*****H1 ********** 

♦WARNING MESSAGE* 
*FOR THIS ACTUAL*<- 

* PARAMETER * 

* * 
***************** 



f H2 *. 

.*£ I/O *. 

.* NAME IS *. 

». ^ACTUAL ;*<r 

*. PARAMETER.* 

*., .* 

*. .* 

* NO 

4 

¥ 



.* PROCEDURE *. 
.SPECIFICATION. 



HI *. 

. *ACTOAL *. 

.* PARAMETER 

IS BY 

*. •VALUE' . 



*****Jt| ********** 

*PDT IDENTIFIER * 
*IN INTERMEDIATE* 

* AREA * 

* * 
***************** 



*****H5 ********** 



***************** 



***** 
*0«8* 
* H3* 



DELIMITER 

IS LEFT 

. BRACKET . 



— X 

V 

***** 

*0U8* 

* H3* 

* * 



***** 
*0«5* 
* F5* 
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APPENDIX A: TABLES 



This appendix contains detailed descrip- 
tions of the main tables used by the LCP. 

They are: 

• The BUFFER 

• The Dictionary 

• Table PCT 

• The communication area COMAREA 



H — procedure without parameters 
K -- semicolon signifying the end 

of a procedure declaration 
A — already completely processed 
B — I/O procedure (inserted by 
Phase 20) 
blank — none of the above options 



Second_characterj. 

1 — converted 

— not converted 



BUFFER 



Thi£d_character2 

1 — semicolon in BUFFER 

— no semicolon 



BUFFER is an intermediate output area for 
all phases, placed on SYSUT1 whenever it is 
completed. The lay-out of BUFFER (not to 
scale) is as follows: 



ELEM1 — contains a line of 100 characters 



INCAR |PRDESC|FMES |AREF 
i i j j 



| NXIRNI LST | ELEH1 | 
_j J J . i 



NCAR -- contains a count of the charac- 
ters entered in ELEM1. 

PRDESC — (not used by Phase 10) contains a 
procedure identification: type 
of the procedure, and in the case 
of input/output procedures, iden- 
tification of the procedure. 

RMES -- contains the number of the error 
message concerning the current 
buffer contents. 

AREF — identifies the card containing 
the ALGOL statement which is 
being processed. 

NXIRN -- contains the identification num- 
ber of the next set of informa- 
tion place in BUFFER. 

LST -- contains three characters: 

First character indicates the 

contents of BUFFER, as follows: 



block-end 

program end 

•BEGIN' (in the case of the 

beginning of a compound 

statement, Phase 20 inserts 

a blank here) 

'ARRAY' declaration 

procedure containing 

parameters 



THE DICTIONARY 



The dictionary is in three parts: DICT, 
DICEXT, and DICPRO. Different phases of 
the LCP use these parts in different ways, 



• Phase 10 uses DICEXT and DICPBO. 



• Phase 20, because of a temporary limi- 
tation in PL/I, cannot transfer infor- 
mation directly from SYSUT2 to DICT. 
It therefore uses DICEXT and DICPRO as 
buffers between SYSUT2 and DICT. The 
parts of DICT corresponding to DICEXT 
and DICPRO are also called DICEXT and 
DICPRO, and are organized in the same 
way as the buffers. 



• Phase 25 uses only DICPRO. 

• Phase 30 uses only DICPRO. 

• Phase 40 uses only DICPRO. 

DICEXT holds information concerning the 
identifiers of a block. DICPRO holds 
information concerning the parameters of a 
procedure. For example, in the piece of 
ALGOL program which follows, information 
relating to the contents of the box is held 
in DICPRO and information relating to the 
rest of the program is held in DICEXT. 
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•BEGIN' 

•REAL' X,Y; r 1 

• BOOLEAN • • PROCEDURE • EVEN | (I) ; | 

| 'VALUE' I; 'INTEGER' I; | 



A — contains a count, incre- 
mented by 1, of the dic- 
tionary sections containing 
information about procedures 
with parameters. 



<procedure body> 
<statement> 



B — is not used, 



• END' 



<statement> 



DICPRO and DICEXT are described in 
detail in the following paragraphs. 



C — contains the number of 

dimensions of an array or 
the number of parameters of 
a procedure. 



D — set to 1 if the converted 

identifier is to receive the 
suffix $. 



DICEXT 



This section of the dictionary is used for 
stocking all information concerning the 
identifiers of a block. 



E — contains declaration infor- 
mation given by a decimal 
value, as shown in the fol- 
lowing table: 



During Phase 10 of the program, DICEXT 
is placed on SYSUT2 whenever (a) the end of 
a block has been encountered, or (b) it is 
required again because a new block occurs 
before the preceding one has been com- 
pleted. An incomplete block can be 
recalled for completion should Phase 10 
contain further declarations concerning it. 

During Phase 20, DICEXT is stored and 
serves as a dictionary of active identi- 
fiers in a given part of the program. Each 
division of DICEXT contains the internal 
reference number, of the corresponding 
block. At each end-of-block, the dic- 
tionary section is deleted. 

The contents of DICEXT are set out as 
follows: 



i" 1 r r ' — i 

| IRNEXT | NIDEXT | IDEXT | TYPEXT | 



Item Declared 


Type 


Decima. 
Value 


Simple variable 


'REAL' 


1 




• INTEGER' 


2 




•BOOLEAN • 


3 


Array 


'PEAL • 


5 




'INTEGER' 


6 




» BOOLEAN' 


7 




Not defined 


5 


Procedure 






Simple 




8 


With parameters 






•ARRAY' or 






'PROCEDURE' 




520 


In internal code 




2« 


Type Procedure 


• REAL' 


9 




'INTEGER' 


10 




•BOOLEAN' 


11 



IRNEXT -- contains the internal reference 
number of the line opening the 
block. 

NIDEXT — contains a count of the 
identifiers. 

IDEXT — contains a table" of up to 172 
identifiers. 

TYPEXT — contains a table of 172 x 31 
bits, as follows: 



Switch 



16 



No. of Bits 



11 



T 1 1 1 1 

I B | C |D | E | 

.J 1 L_J 1 

4 5 1 10 



Each ALGOL keyword in the declaration 
contributes to the decimal value describing 
the declaration. For example, in the fol- 
lowing declaration: 

• BOOLEAN' 'PROCEDURE' X; 'CODE'; 

'BOOLEAN' has value 3, 'PROCEDURE' has 
value 8, and 'CODE' has value 16. The sum, 
27, is the decimal value describing a boo- 
lean procedure with the body 'CODE'. 

If a procedure has parameters specified 
by 'ARRAY' or 'PROCEDURE', 512 is added to 
the decimal value of the declaration. 
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DICPRO 



DICPRO stocks all information concerning 
the parameters of a procedure. It is used 
in turn by each phase of the LCP. 



Phase 10 places DICPRO on SYSUT2 when 
all parameter specifications have been read 
and processed. 



Phase 20 recalls DICPRO when the corres- 
ponding procedure declaration has been 
read. While the procedure is being pro- 
cessed, the descriptions of formal parame- 
ters specified by 'ARRAY' or 'PROCEDURE' 
may be completed; in this case, DICPRO is 
placed on SYSUT2 at the end of the 
procedure. 

Phase 25 (if called) reads the sections 
of the dictionary required for processing 
Table PCT. When the description of a form- 
al parameter has been completed, DICPRO is 
placed on SYSUT2. 

Phase 30 consults descriptions of formal 
parameters in DICPRO in order to convert 
parameter specifications. 

Phase 40 uses DICPRO to convert actual 
parameters of procedure (or function) calls 
and to simulate calls by value. 

The contents of DICPRO are set out as 
follows: 



| NIDPRO | IDPRO | TYPRO | 
i j i i 



NIDPRO -- contains a count of parameters in 
the procedure. 

IDPRO -- contains a table of up to 15 for- 
mal parameters. 

TYPRO -- contains the description of each 
formal parameter. It is a table 
of 15 x 31 bits, as follows: 



C — contains the number of 

dimensions of an array or 
the number of parameters of 
a procedure. 

D — set to 1 if the converted 

identifier is to receive the 
suffix S. 

E — contains specification in- 
formation given by a decimal 
value, as shown in the fol- 
lowing table: 



Item Specified 
Variable called 


Type 


Decimal 
Value 


by name 


•REAL' 


1 




• INTEGER' 


2 




•BOOLEAN' 


3 


Variable called 






by value 


'REAL' 


65 




• INTEGER' 


66 




'BOOLEAN' 


67 


Formal parameter 






specified by 'ARRAY' 


'REAL* 


37 


and called by name 


• INTEGER' 


38 




'BOOLEAN' 


39 




Not defined 


37 


Formal parameter 






specified by 'ARRAY' 


'REAL' 


101 


and called by value 


' INTEGER' 


102 




'BOOLEAN ' 


103 




Not defined 


101 



Formal parameter specified 
as non-type procedure 



Formal parameter 
specified as 
type procedure 
called by name 

Formal parameter 
specified as 
type procedure 
called by value 

Switch 



• REAL' 

« INTEGER' 

'BOOLEAN 



•PEAL' 
•INTEGER • 
• BOOLEAN" 



40 



41 
42 
43 



257 

258 
259 

16 



No. of bits 



A — 



B — 



11 



T 1 

I B | C 

_l I L_ 

4 5 1 



— r 



E 
10 



contains a count, incre- 
mented by 1, of the dic- 
tionary section containing 
information about a paramet- 
er specified by •PROCEDURE' 
or 'ARRAY'. 

contains a count of parame- 
ters in the dictionary 
section . 



Label 



String 



128 



Each ALGOL keyword used as a specifier 
contributes to the decimal value describing 
the specification. For example, in the 
following specification: 

•VALUE' A; • REAL' • ARRAY' A; 

•VALUE* has value 64, ■HEAL 1 has value 1 , 
and 'ARRAY' has value 36. The sum, 101, is 
the decimal value describing the specifica- 
tion of formal parameter A. 
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If a parameter is called by value, 64 is 
added, unless it is a type procedure, in 
which case 256 is added. 



TABLE_PCT_JPEOCEDURE_CALL_TABLEL 



This table contains information concerning 
procedure calls with actual parameters that 
are procedures or arrays. It is built in 
Phase 20 and used in Phase 25 to complete 
the dictionary. 

When an ALGOL procedure statement is 
encountered, a stack is used to construct 
Table PCT. This stack has the followinq 
form: 



APN — contains the sequence number of the 
actual parameter (0 indicates an 
element creating a new entry) . 

STN -- contains the section number or the 
number of parameters or dimensions, 
depending on the value of CODE. 

FPN — contains the sequence number of the 
formal parameter when CODE is PROCP 
or ARRAYP. 

The contents of the last entry in the 
stack are entered in Table PCT. The first 
line is used to reset the various pointers. 




| BCE | 

j- ^ 

I T 

| ECE | 

f ^ 



BCE — Address of beginning of current 
entry 

ECE — Address of end of current entry 

BLE — Address of beginning of previous 
entry 

CNDP — Dimension (or parameter) counter 

CBP — Brackets and parentheses counter 

Each entry has more than one line. Each 
line has the following form: 



CODE — contains one of the following PL/I 
symbols : 

• PROCM for a procedure 

• PROCP for a formal procedure 

• ARRAYP for an array or a formal 
array 

• I0NAM for an I/O or standard 
function name 



COMAREA 



COMAREA is the area of communication among 
the various phases of the LCP. The layout 
of COMAREA is as follows: 



i r — r r r t 1 

|BLIDIC|BLIPRO| IRN | SIZE | PGPPOT | PGPPOL | 

i t r r r r 1 1 

|LONG| IS0| CHAR48| SOURCEI DECK| LSTKEYI ERZON| 



BLIDIC -- contains a count of the blocks in 
the program. 

BLIPRO -- contains the number of procedure 
declarations (with parameters) in 
the program. 

IRN -- contains the total number of 
records on SXSUT1. 

SIZE — contains the storage capacity 
required for DICT in Phase 20. 
The requirement depends on the 
SIZE option. 

PGPROT — contains the type of the precom- 
piled procedure (if any). 

PGPROL -- contains the procedure identifier 
if the program is a precompiled 
procedure. 



LONG 



ISO 



•- contains the precision option: 
1 for LONG 

for SHORT 

■- contains the character-code 
option : 

1 for ISO 



Appendix A 79 



for EBCDIC 



DECK — contains the option of output on 
SYSPCH: 



CHAR48 -- contains the character-set 
option : 

1 for 48-character set 

f 

for 60-character set 

SOURCE — contains the source listing 
option: 

1 if required 

if not required 



1 if required 



if not required 

LSTKEY — contains the key of the record on 
SYSUT1 containing the last proce- 
dure declaration (set by Phase 20 
and by Phase 30) . 

ERZON -- contains the count of syntactic- 
ally incorrect ALGOL statements. 
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APPENDIX B. 



FILES 



This appendix contains detailed descrip- 
tions of the files used by the LCP. 

The file access method for the ENVIRON- 
MENT attribute is given in the PL/I Pro- 
grammer's Guide, Form C28-6594. 



FILE_SYSUT1 

File SYSUT1 has the following PL/I 
attributes: 

KEYED 

RECORD 

ENVIRONMENT (REGIONAL (1) F(123)) 

1. The key used to create and retrieve 
records is the internal reference 
number. 

2. The record length is fixed at 123 
bytes, the same size as BUFFER. 

3. The ENVIRONMENT attribute specifies 
the access method used. 

After formatting, file SYSUT1 is used as 
UPDATE DIRECT. 



FILE SYSUT2 



File SYSUT2 has the following PL/I 
attributes: 

KEYED 

RECORD 

ENVIRONMENT (REGIONAL (1) F(1729)) 

1. For uneven values (1,3,5,...) , the key 
is obtained from the number of the 
block in DICEXT. For even values 
(0,2,4,...), the key is obtained from 
the number of the procedure declara- 
tion in DICPRO. 

2. The physical records are of fixed 
length. A logical record correspond- 
ing to DICEXT occupies 142 9 bytes and 
a record corresponding to DICPRO occu- 
pies 154 bytes. 



3. The ENVIRONMENT attribute specifies 
the access method used. 

In the Control Phase, the file SYSUT2 is 
opened as OUTPUT DIRECT to make the disk 
ready. It is then closed and re-opened as 
UPDATE DIRECT. 



FILE SYSIN 



File SYSIN 
attributes : 



has the following PL/I 



RECORD 

INPUT 

ENVIRONMENT (CONSECUTIVE) 

FILE SYSPRNT 



File SYSPRNT has the following PL/I 
attributes: 

RECORD 

OUTPUT 

ENVIRONMENT (CONSECUTIVE) 

The size of the records is fixed by the 
DCB subparameter of the DD card. (See the 
sample program in the ALGOL-to-PL/I lan- 
guage conversion manual.) 

The first character of each record is a 
printer control character. 



FILE_SYSPCH 

File SYSPCH has the following PL/I 
attributes: 

RECORD 

OUTPUT 

ENVIRONMENT (CONSECUTIVE) 
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APPENDIX C: STORAGE MAP 



The following diagram illustrates the way 
in which the LCP uses main storage. The 
BUFFER, tne Dictionary, and Table PCT are 
considered as parts of the phases that use 
them. 



The exact sizes of the components of the 
program are not shown since they depend on 
the options used to compile the LCP. 



System/360 
Operatingl 
System! 

Static PL/I Library 

— \ 
COM AREA I 

-4- 
Control Phase 



Initialization | 

! 

and | 

I 

Return | 

I 

Procedures | 

I 



Phase| 

! 

10| 



Phase 
20 



Phase 
25 



Phase 
30 



Phase 
40 



-4- 



-4- 



-4- 
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INDEX 



Where more than one page reference is 
given, the first page number indicates the 
major reference. 

$.... 14,77,78 

$CONAEX . . 5 8 

SCONBEX. ..: . 58 

$RTURN , 39,40,50,51 

actual parameter . 12,39,40,78,79 

ALGOL, System/360 Operating/System 2 

ALGOL basic symbols . . 12 

ALGOL keyword 13,15,16 

ALGOL symbol 16 

APN „ .. 79 

AREF . 76 

arithmetic variable 51 

ARPRO 58,64 

see_also: routine 

array 39,51,77 

•ARRAY' 13,3 9,4 0,50,51 ,76 „ 77, 78 

array declaration 58 

ARRAYP . 79 

ARRAYS 13,19,20 

see ..also ; routine 
ASPRO . . 58, 65 

see_also: routine 
assignment statement 12,59 

see also: statement 
auxiliary table 61 

B „.. 81 

BCE . . . 79 

BEG PRO 39,43 

see also: routine 

BIT (1) 13, 14 

bl ank 12 

BLE ... 79 

BLIDIC .. 79 

B LI PRO 7 9 

block 12,39,77 

block structure , 7,12 

blocks, numbering of „.. 81 

• BCCLEAN' 51, 77,78 

bound- pair- list 13,58 

BUFFER 76,14,15,16,17,51 ,61 ,82 

BUFPUT 13 

FLOOR built-in function.. 58,62 

CALL statement ,. . . 60 

sea_also: statement 

called by value.... 78,79,51 

CBP ,, .. 7 9 

CHAR4 8 80 

see_also: char act er- set option 

character-code option 79 

48-character set 12,80 

60-character set........... 80 

character-set option . .. 80 

CNDP 79 

CODCAR 13 

CODE. 79 



•CODE 1 -. 16,50,51 

COMAREA 79-80,82 

COMENT 13,21 

see_also: routine 

comma 40,61 

comments 7, 12, 13, 14,50 

■COMMENT" 16 

conditional expression 58,61 

conflict. 12 

CONSECUTIVE 81,82 

control card 10 

Control Phase .*.. 10,7,50,58,82 

controlled variable .- 59 

COPYIA 61 

CURKEY 39 

data-set- number 59,60 

DCB subparameter 81 

DD card 81 

DECK 62,80 

DECLAR 1 4, 22- 23 

see_also: routine 

declarator 14 

delimiter 40 

DEPOIN. 14,24 

s e e_a lso : r ou t i ne 

designational expression 59 

DESPEC 14,25 

see also: routine 

DICE XT 12,13,14,15,16,39,76,77,81 

DICPRO 12, 13,15, 16,39,40,51,76,78,81 

DICPUT 13 

DICT 3 9,76 

dictionary 7, 8, 1 2, 39, 50, 58, 76, 82 

dictionary section number 40 

digit 16,62 

dimension counter 79 

dimensions, number of 39,40,50,77,78 

•DO' 16 

see_also: ALGOL keyword 
dummy variable 50,60 

EBCDIC 79 

see_also: character code option 

ECE..T 79 

ELEM1 76 

•ELSE' 14,16 

see_also: ALGOL keyword 

; E LSE . 7 14 

END 14 

•END' 14, 15, 16 

see_also: ALGOL keyword 

END7. . . T. 15 

en d-of- function 15 

end -of -loop 15 

end -of -procedure 15 

ENTRY attribute 50,51 

ENVIRONMENT attribute 81 

•EQUIV 58,60,61 

see_also: ALGOL keyword 

error message 8,16,76 

ERZON 80 
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EXEC 1 0,58 

EXPEN 62 

exponent part 60 

expression <. 60, 5 8 

expression processing routine 60 

EXPRO 5 8,6 0,71-75 

see_.also : routine 
EXPR0L3 60 

F(80) „ 81 ,82 

F(123) 81 

file access method... 81 

files 81 

FINPG 13 

FIXED BINARY (31) 13,14 

FLOAT 13, 14 

FLOAT (16) 13,14 

for-list 59 

•FOR" statement... 12,59 

»see_alsg: statement 

formal parameter 12,39,40,50,51,78 

formal parameter specified by "ARRAY*... 78 

formal procedure 39 

FORPR0 59,66 

see_also: routine 

FPN . 79 

function 50,51 

GEN4 62 

GENER 13 

GENID 51 

GENR 51 

GETCAR 13 

GETWORD 62 

GLABEL 14,26 

see also: routine 

■GO TO 1 statement 59 

see a lso: statement 
GOTOPRO" 59,67 

see_also: routine 

GQUOT.7 13 

hardware representations 7,12 
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IDENT1 14 

identifier 12,14,15,39,40,62, 76,77 

IDEXT 77 

IDEXT6 * 14 

IDPRO 78 

IF 59 
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•IF 1 statement 59 

see_also: statement 
IF PRO 59,6 8 

see .also: routine 

• IMPL'..7 58,61 

initialization procedure 7,10,82 

INPUT attribute 81 

input/output procedure 39,40,58 

input/output statement 59 

'INTEGER' 51,77,78 
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intermediate area 61 

intermediate text 8,12,39,50,58 

internal reference number... 12,40,59,77,81 

IONAH... 79 
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irn7.77 79 

IRNEXT 39,77 

ISO 79 
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keyed7777 81 
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•LABEL' 51,78 

LABEL INITIAL 16 

LCP 7 
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left parenthesis 16,39,40 

left-part variable 39,58,59 

LEND 14,27 
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LETR. 7777 15 

letter 16,62 

letter -string 15 
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LONG 79 

LST 76 

LSTKEY 80 

MAINPRO 5 8 

multiple assignment 61 
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NCAR 76 

nested program structure 12 

NIDEXT 77 

NIDPRO 78 
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number of procedure declarations 79 

NXIRN 76 

open string 12 

OUTPUT 81,82 

output buffer 13,62 

OUTPUT DIRECT 8 1 

output listing 58 
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formal parameter 
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parameter specifications. 78 
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PA REN 15,29 

see_also: routine 
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PDCPRO 39,44 
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Phase 20 39,7,8,76,82 

routines 3 9-41 

Phase 25 50,7,8,76,62 

Phase 30 50,7,76,82 
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PL/I compiler 39 
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PRDESC. 39, 59, 76 
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precompiled procedure 50,51,79 

preprocessing 12 

PRINT.. 13 
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PROCED 15,30 

see .also: routine 
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call table 79 

declaration 8, 12, 15, 50, 80 
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headings 50 
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identifier 39,4 0, 60, 7 9 
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simple 77 
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•PROCEDURE' 4 0,50,51 

PROCM 7 9 

PROCP 79 

program library . .. 7 

PROPUT 13 

PRPRO (Phase 30) 50,51 
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PRPRcT" (Phase 40) 60,70 
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PUTCAR 13 

PUTID 62 

PVIRGU 15,31 

see_alsc: routine 

QUOT 15,32 

see_alsc: routine 
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•REAL* 51 

RECORD 81, 82 
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REGIONAL (1) 81 

REGIONAL (3) 81 

RETURN 15 

return procedure 10,82 
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RMES 16, 76 
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EXPRO 58,60,71-75 
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SDCID 4 0,46-49 
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side -effects 7 
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standard function 39,40 

statement 

assignment 12,59 
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•FOR' 12,59 
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•IF' 59 
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STN 79 

storage capacity 79 
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SYSACT control procedure 60 see_also: routine 
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